Revert "restore backwards compatibility after changes for #165"

This reverts commit 3f59987.
Frege · Aug 19, 2015 · 22120d4 · 22120d4
1 parent d4997ab
commit 22120d4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/frege/compiler/types/Packs.fr b/frege/compiler/types/Packs.fr
@@ -113,9 +113,8 @@ magicPack nm = nm
 --- > unmagicPack . magicPack = id
 --- The following should hold for package names that start with "frege.c" 
 --- > magicPack . unmagicPack = id
-unmagicPack s 
-    | Just m ← s =~ ´^frege\.(.)(.*)´,
-      Just c <- m.group 1, Just rest <- m.group 2, 
+unmagicPack (m~´^frege\.(.)(.*)´)
+    | Just c <- m.group 1, Just rest <- m.group 2, 
       not (c.charAt 0).isUpperCase
     = c.toUpperCase ++ rest
 unmagicPack nm = nm

diff --git a/frege/compiler/types/Targets.fr b/frege/compiler/types/Targets.fr
@@ -5,7 +5,7 @@ module frege.compiler.types.Targets where
 data Target = Target {!major, !minor :: Int } where
     --- decode a target specification
     decode ∷ String → Maybe Target
-    decode s | Just m ← s =~ ´^(\d+)\.(\d+)$´ = do
+    decode (m~´^(\d+)\.(\d+)$´) = do
         maj ← m.group 1
         min ← m.group 2
         return (Target maj.atoi min.atoi)