Permalink
Browse files

Cosmetic changes

  • Loading branch information...
1 parent 84f5534 commit 42e56d1097835ac4b793a32c23b60a89b34e37d5 @MedeaMelana committed May 4, 2011
Showing with 2 additions and 3 deletions.
  1. +1 −2 Data/Iso/TH.hs
  2. +1 −1 Language/JsonGrammar.hs
View
@@ -31,8 +31,7 @@ deriveIso matchWildcard con =
case con of
NormalC name tys -> go name (map snd tys)
RecC name tys -> go name (map (\(_,_,ty) -> ty) tys)
- _ -> do
- fail $ "Unsupported constructor " ++ show (conName con)
+ _ -> fail $ "Unsupported constructor " ++ show (conName con)
where
go name tys = do
iso <- [| Iso |]
View
@@ -114,7 +114,7 @@ rawFixedProp name value = stack (Iso from to)
--
-- > object (prop "key1" . prop "key2")
object :: Iso (Object :- t1) (Object :- t2) -> Iso (Value :- t1) t2
-object props = inverse aeObject >>> props >>> inverseLit (M.empty)
+object props = inverse aeObject >>> props >>> inverseLit M.empty
-- Type-directed conversion

0 comments on commit 42e56d1

Please sign in to comment.