Skip to content

Commit 22120d4

Browse files
committed
Revert "restore backwards compatibility after changes for #165"
This reverts commit 3f59987.
1 parent d4997ab commit 22120d4

File tree

2 files changed

+3
-4
lines changed

2 files changed

+3
-4
lines changed

frege/compiler/types/Packs.fr

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -113,9 +113,8 @@ magicPack nm = nm
113113
--- > unmagicPack . magicPack = id
114114
--- The following should hold for package names that start with "frege.c"
115115
--- > magicPack . unmagicPack = id
116-
unmagicPack s
117-
| Just m s =~ ´^frege\.(.)(.*)´,
118-
Just c <- m.group 1, Just rest <- m.group 2,
116+
unmagicPack (m~´^frege\.(.)(.*)´)
117+
| Just c <- m.group 1, Just rest <- m.group 2,
119118
not (c.charAt 0).isUpperCase
120119
= c.toUpperCase ++ rest
121120
unmagicPack nm = nm

frege/compiler/types/Targets.fr

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ module frege.compiler.types.Targets where
55
data Target = Target {!major, !minor :: Int } where
66
--- decode a target specification
77
decode ∷ String Maybe Target
8-
decode s | Just m s =~ ´^(\d+)\.(\d+) = do
8+
decode (m~´^(\d+)\.(\d+)) = do
99
maj m.group 1
1010
min m.group 2
1111
return (Target maj.atoi min.atoi)

0 commit comments

Comments
 (0)