0244ece · typeable/wai

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

compare with master

unifiedsplit

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

11import Database.Persist.Sqlite

12import System.Directory

13import Control.Monad (when)

14−import Helper

15import Text.Hamlet

14import Text.Hamlet

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

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

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

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

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

39 else do

38 else do

40 liftIO $ print (pathInfo req)

39 liftIO $ print (pathInfo req)

41 x <- runResourceT $ flip runSqlPool pool $ do

40 x <- runResourceT $ flip runSqlPool pool $ do

42− insert $ Dummy ""

41+ _ <- insert (Dummy "")

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

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

44 return $ responseLBS status200

43 return $ responseLBS status200

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

44 [("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

5import Network.HTTP.Types

6import Data.ByteString.Lazy.Char8 ()

7

8+testapp' :: Application

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

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

9

10

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

10smallApp f = f testapp'

12smallApp f = f testapp'

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

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

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

2−import Data.ByteString (ByteString)

3

2

3+main :: IO ()

4main = 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)

3import System.Directory(findExecutable)

4import System.Process(readProcess)

5

6+main :: IO ()

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

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

7

8

9+browserRefresh :: IO (IO ())

8browserRefresh = do

10browserRefresh = do

9 exe <- findExecutable "xdotool"

11 exe <- findExecutable "xdotool"

10 case exe of

12 case exe of

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

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

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

2

3+main :: IO ()

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

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