Skip to content

Commit

Permalink
Cleanup parens
Browse files Browse the repository at this point in the history
  • Loading branch information
christian-marie committed Dec 23, 2014
1 parent e5f3833 commit 243ca4a
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions lib/Data/Aeson/Roundtrip.hs
Original file line number Diff line number Diff line change
Expand Up @@ -65,10 +65,10 @@ demote name p = unsafeMakeNamedIso name (preview p) (review (_Just . p))
demoteLR :: (Show a, Show b) => String -> Prism' a b -> Iso a b
demoteLR name p = unsafeMakeNamedIsoLR name (preview p) (review (_Just . p))

demoteL :: (Show a) => String -> Prism' a b -> Iso a b
demoteL :: Show a => String -> Prism' a b -> Iso a b
demoteL name p = unsafeMakeNamedIsoL name (preview p) (review (_Just . p))

demoteR :: (Show b) => String -> Prism' a b -> Iso a b
demoteR :: Show b => String -> Prism' a b -> Iso a b
demoteR name p = unsafeMakeNamedIsoR name (preview p) (review (_Just . p))

-- | Parse and unparse JSON values.
Expand All @@ -93,7 +93,7 @@ is s a = demoteR "is" (prism' (const a) (guard . (a ==))) <$> s
-- the way "back" from JSON, but never ends up in the JSON document.
--
-- This is almost like pure, going one way.
wat :: (JsonSyntax s) => a -> s a
wat :: JsonSyntax s => a -> s a
wat a = demoteL "wat"
(prism' (const $ Object mempty) (const $ Just a)) <$> value

Expand Down

0 comments on commit 243ca4a

Please sign in to comment.