git.iko.soy/typeable/http-api-data
on master help sign in
Fixed. Take 2.
1cd599eMomemtumMori
Web/PathPieces.hs+1−1
compare with master
unifiedsplit
@@ -91,7 +91,7 @@ instance (PathPiece a) => PathPiece (Maybe a) where
91 then Just Nothing
91 then Just Nothing
92 else Nothing
92 else Nothing
93 toPathPiece m = case m of
93 toPathPiece m = case m of
94− Just s -> toPathPiece s
94+ Just s -> "Just " `S.append` toPathPiece s
95 _ -> "Nothing"
95 _ -> "Nothing"
96
96
97{-# DEPRECATED toSinglePiece "Use toPathPiece instead of toSinglePiece" #-}
97{-# DEPRECATED toSinglePiece "Use toPathPiece instead of toSinglePiece" #-}
test/main.hs+1−1
@@ -42,7 +42,7 @@ spec = do
42 Nothing -> False
42 Nothing -> False
43 Just pConverted -> p == pConverted
43 Just pConverted -> p == pConverted
44
44
45− prop "toPathPiece <=> fromPathPiece String" $ \(p::Maybe String) ->
45+ prop "toPathPiece <=> fromPathPiece Maybe String" $ \(p::Maybe String) ->
46 case (fromPathPiece . toPathPiece) p of
46 case (fromPathPiece . toPathPiece) p of
47 Nothing -> False
47 Nothing -> False
48 Just pConverted -> p == pConverted
48 Just pConverted -> p == pConverted