git.iko.soy/typeable/http-api-data
on master help sign in
Fixed missing imports..
17354d1MomemtumMori
Web/PathPieces.hs+3−2
compare with master
unifiedsplit
@@ -10,6 +10,7 @@ module Web.PathPieces
10 ) where
10 ) where
11
11
12import Data.Int (Int64)
12import Data.Int (Int64)
13+import Data.Maybe (fromJust)
13import qualified Data.Text as S
14import qualified Data.Text as S
14import qualified Data.Text.Lazy as L
15import qualified Data.Text.Lazy as L
15import qualified Data.Text.Read
16import qualified Data.Text.Read
@@ -83,8 +84,8 @@ instance PathMultiPiece [L.Text] where
83 toPathMultiPiece = map $ S.concat . L.toChunks
84 toPathMultiPiece = map $ S.concat . L.toChunks
84
85
85instance (PathPiece a) => PathPiece (Maybe a) where
86instance (PathPiece a) => PathPiece (Maybe a) where
86− fromPathPiece s = if isPrefixOf "Just " s
87+ fromPathPiece s = if S.isPrefixOf "Just " s
87− then Just $ fromPathPiece $ fromJust $ stripPrefix "Just " s
88+ then Just $ fromPathPiece $ fromJust $ S.stripPrefix "Just " s
88 else
89 else
89 if s == "Nothing"
90 if s == "Nothing"
90 then Just Nothing
91 then Just Nothing