diff options
Diffstat (limited to 'src/Prolog.hs')
| -rw-r--r-- | src/Prolog.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Prolog.hs b/src/Prolog.hs index 1910a78..32f7c61 100644 --- a/src/Prolog.hs +++ b/src/Prolog.hs @@ -241,7 +241,7 @@ instance StringConv Html String where strConv _ = strip . BS.renderHtml where strip :: String -> String - strip = + strip = let d = L.dropWhile C.isSpace in L.reverse . d . L.reverse . d @@ -320,8 +320,8 @@ instance MonadThrow H.Compiler where throwM = throwError . pure . displayException -- | Huh, I guess I need a version bump for this guy? -instance A.FromJSON URI where - parseJSON = A.withText "URI" $ maybe (fail "Invalid URI") pure . parseURI . toSL +-- instance A.FromJSON URI where +-- parseJSON = A.withText "URI" $ maybe (fail "Invalid URI") pure . parseURI . toSL -deriving instance Generic Time.Day +-- deriving instance Generic Time.Day deriving newtype instance Binary Time.Day |