Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Cosmetic changes

  • Loading branch information...
commit 42e56d1097835ac4b793a32c23b60a89b34e37d5 1 parent 84f5534
@MedeaMelana authored
Showing with 2 additions and 3 deletions.
  1. +1 −2  Data/Iso/TH.hs
  2. +1 −1  Language/JsonGrammar.hs
View
3  Data/Iso/TH.hs
@@ -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
2  Language/JsonGrammar.hs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.