0244ece · typeable/wai

git.iko.soy/typeable/wai

wai-handler-devel: Make examples -Wall sane

commit0244ecedb14d1f1f966c58eedeb2befed8c507e0 authorSimon Hengel <sol@typeful.net> dateMon 3 Dec 2012, 11:08 (14 years ago) parent755e49a

6 files changed+7−6

compare with master

unifiedsplit

wai-handler-devel/FullApp.hs+1−2 wai-handler-devel/Helper.hs−3 wai-handler-devel/SmallApp.hs+2 wai-handler-devel/run-fullapp.hs+1−1 wai-handler-devel/run-onreloadapp.hs+2 wai-handler-devel/run-smallapp.hs+1

wai-handler-devel/FullApp.hs+1−2

@@ -11,7 +11,6 @@ import Database.Persist.TH

1111import Database.Persist.Sqlite

1212import System.Directory

1313import Control.Monad (when)

14−import Helper

1514import Text.Hamlet

1615import Text.Blaze.Html.Renderer.Text (renderHtml)

1716import Data.Text.Lazy.Encoding (encodeUtf16LE)

@@ -39,7 +38,7 @@ fullApp handler = do

3938 else do

4039 liftIO $ print (pathInfo req)

4140 x <- runResourceT $ flip runSqlPool pool $ do

42− insert $ Dummy ""

41+ _ <- insert (Dummy "")

4342 count ([] :: [Filter Dummy])

4443 return $ responseLBS status200

4544 [("Content-Type", "text/html; charset=utf-8")] $

wai-handler-devel/Helper.hsdeleted−3

@@ -1,3 +0,0 @@

1−module Helper where

2−

3−db = "test.db3"

wai-handler-devel/SmallApp.hs+2

@@ -5,6 +5,8 @@ import Network.Wai

55import Network.HTTP.Types

66import Data.ByteString.Lazy.Char8 ()

8+testapp' :: Application

89testapp' _ = return $ responseLBS status200 [("Content-Type", "text/html")] "test"

910

11+smallApp :: (Application -> IO ()) -> IO ()

1012smallApp f = f testapp'

wai-handler-devel/run-fullapp.hs+1−1

@@ -1,4 +1,4 @@

11import Network.Wai.Handler.DevelServer (runQuit)

2−import Data.ByteString (ByteString)

3+main :: IO ()

44main = runQuit 3000 "FullApp" "fullApp" (const $ return ["hamlet/testapp.hamlet"])

wai-handler-devel/run-onreloadapp.hs+2

@@ -3,8 +3,10 @@ import Network.Wai.Handler.DevelServer (runQuitWithReloadActions)

33import System.Directory(findExecutable)

44import System.Process(readProcess)

6+main :: IO ()

67main = runQuitWithReloadActions 4000 "SmallApp" "smallApp" (const $ return []) [browserRefresh]

9+browserRefresh :: IO (IO ())

810browserRefresh = do

911 exe <- findExecutable "xdotool"

1012 case exe of

wai-handler-devel/run-smallapp.hs+1

@@ -1,3 +1,4 @@

11import Network.Wai.Handler.DevelServer (runQuit)

3+main :: IO ()

34main = runQuit 3000 "SmallApp" "smallApp" (const $ return [])