diff options
| author | Chris Wells <chris@mathematicaster.org> | 2026-02-08 14:32:59 -0600 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2026-02-08 14:32:59 -0600 |
| commit | 055b445b7c9c5faccedf6858ba8c2c0c4993b349 (patch) | |
| tree | fe9fee4eaf4a7f4a4b80f4a879d5e17d7f945740 /src/Prolog.hs | |
| parent | 8711224f2fbec7fbf7b0633f3e35fee051e030cb (diff) | |
| download | main-055b445b7c9c5faccedf6858ba8c2c0c4993b349.tar main-055b445b7c9c5faccedf6858ba8c2c0c4993b349.tar.gz main-055b445b7c9c5faccedf6858ba8c2c0c4993b349.tar.bz2 main-055b445b7c9c5faccedf6858ba8c2c0c4993b349.tar.lz main-055b445b7c9c5faccedf6858ba8c2c0c4993b349.tar.xz main-055b445b7c9c5faccedf6858ba8c2c0c4993b349.tar.zst main-055b445b7c9c5faccedf6858ba8c2c0c4993b349.zip | |
Updated images for employment
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 |