Fixed Cookie example from Cookie module

scotty-web · Mar 27, 2024 · 23f286f · 23f286f
1 parent 8795345
commit 23f286f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Web/Scotty/Cookie.hs b/Web/Scotty/Cookie.hs
@@ -22,15 +22,15 @@ import Data.Monoid
 import Data.Maybe
 import qualified Data.Text.Lazy as TL
 import qualified Data.Text.Lazy.Read as TL (decimal)
-import Web.Scotty (scotty, html)
+import Web.Scotty (scotty, html, get)
 import Web.Scotty.Cookie (getCookie, setSimpleCookie)
 
 main :: IO ()
 main = scotty 3000 $
     get \"/\" $ do
         hits <- liftM (fromMaybe \"0\") $ 'getCookie' \"hits\"
         let hits' =
-              case TL.decimal hits of
+              case TL.decimal $ TL.fromStrict hits of
                 Right n -> TL.pack . show . (+1) $ (fst n :: Integer)
                 Left _  -> \"1\"
         'setSimpleCookie' \"hits\" $ TL.toStrict hits'