eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Remove use of undefined in Read instance

Browse source
This commit is contained in:
Alex Mason 2016-09-02 15:45:31 +10:00
parent bbd6779cc5
commit 1996ec05f7
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
servant/src/Servant/API/Times.hs
View file

@ -54,6 +54,7 @@ instance (KnownSymbol format, T.FormatTime t) => Show (FTime format t) where
instance (KnownSymbol format, T.ParseTime t) => Read (FTime format t) where
readsPrec i str = res
where
fmt = symbolVal (Proxy :: Proxy format)
res = fmap (first FTime)
(readParen (i > 1)
#if !MIN_VERSION_time(1,5,0)
@ -64,12 +65,6 @@ instance (KnownSymbol format, T.ParseTime t) => Read (FTime format t) where
str
)
toFTimeTy :: [(FTime format t, String)] -> FTime format t
toFTimeTy _ = undefined
fmt = getFormat (toFTimeTy res)
instance (KnownSymbol format, T.FormatTime t) => ToHttpApiData (FTime format t) where
toUrlPiece = toUrlPiece . renderTime