haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
Maximilian Tagher 2019-11-29 10:46:25 -05:00
parent 561adc2e17
commit 8ee771896c
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-test/test/main.hs
View File

@ -45,7 +45,6 @@ import Control.Monad.IO.Unlift (toIO)
import qualified Web.Cookie as Cookie import qualified Web.Cookie as Cookie
import Data.Maybe (isNothing) import Data.Maybe (isNothing)
import qualified Data.Text as T import qualified Data.Text as T
-- import qualified Data.Aeson as A
parseQuery_ :: Text -> [[SelectorGroup]] parseQuery_ :: Text -> [[SelectorGroup]]
parseQuery_ = either error id . parseQuery parseQuery_ = either error id . parseQuery
@ -587,7 +586,6 @@ app = liteApp $ do
(sendStatusJSON status200 ([1] :: [Integer])) :: LiteHandler Value (sendStatusJSON status200 ([1] :: [Integer])) :: LiteHandler Value
onStatic "get-json-wrong-content-type" $ dispatchTo $ do onStatic "get-json-wrong-content-type" $ dispatchTo $ do
return ("[1]" :: Text) return ("[1]" :: Text)
-- (sendResponse "[1]") :: LiteHandler Text
cookieApp :: LiteApp cookieApp :: LiteApp
cookieApp = liteApp $ do cookieApp = liteApp $ do