From 055b445b7c9c5faccedf6858ba8c2c0c4993b349 Mon Sep 17 00:00:00 2001 From: Chris Wells Date: Sun, 8 Feb 2026 14:32:59 -0600 Subject: Updated images for employment --- src/Prolog.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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 -- cgit v1.2.3