File tree Expand file tree Collapse file tree 2 files changed +3
-4
lines changed
Expand file tree Collapse file tree 2 files changed +3
-4
lines changed Original file line number Diff line number Diff 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
121120unmagicPack nm = nm
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ module frege.compiler.types.Targets where
55data 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 )
You can’t perform that action at this time.
0 commit comments