1cd599e · typeable/http-api-data

git.iko.soy/typeable/http-api-data

Fixed. Take 2.

commit1cd599eeb0236484acd9b537dd185597c82bda75 authorMomemtumMori <admin@momemtummori.info> dateWed 9 Jul 2014, 05:09 (12 years ago) parent17354d1

2 files changed+2−2

unifiedsplit

Web/PathPieces.hs+1−1

@@ -91,7 +91,7 @@ instance (PathPiece a) => PathPiece (Maybe a) where

9191 then Just Nothing

9292 else Nothing

9393 toPathPiece m = case m of

94− Just s -> toPathPiece s

94+ Just s -> "Just " `S.append` toPathPiece s

9595 _ -> "Nothing"

9696

9797{-# DEPRECATED toSinglePiece "Use toPathPiece instead of toSinglePiece" #-}

test/main.hs+1−1

@@ -42,7 +42,7 @@ spec = do

4242 Nothing -> False

4343 Just pConverted -> p == pConverted

4444

45− prop "toPathPiece <=> fromPathPiece String" $ \(p::Maybe String) ->

45+ prop "toPathPiece <=> fromPathPiece Maybe String" $ \(p::Maybe String) ->

4646 case (fromPathPiece . toPathPiece) p of

4747 Nothing -> False

4848 Just pConverted -> p == pConverted