cadey
/
time-wasting-thread-memorial
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Run stylish-haskell

This commit is contained in:
Christine Dodrill 2015-07-28 00:00:18 -07:00
parent 7bc70e9753
commit b28c20f4e5
4 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
web/src/Main.hs
View File

@ -2,7 +2,7 @@
module Main where module Main where
import qualified Database.SQLite.Simple as Db import qualified Database.SQLite.Simple as Db
import qualified Web.Spock.Safe as S hiding (head) import qualified Web.Spock.Safe as S hiding (head)
import qualified Within.DBMemorial.Post as Post import qualified Within.DBMemorial.Post as Post
main :: IO () main :: IO ()

8
web/src/Within/DBMemorial/Post.hs
View File

@ -1,10 +1,10 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Within.DBMemorial.Post where module Within.DBMemorial.Post where
import Control.Applicative import Control.Applicative
import Data.Monoid() import Data.Monoid ()
import Data.Text import Data.Text
import Database.SQLite.Simple.FromRow import Database.SQLite.Simple.FromRow
data Post = Post data Post = Post
{ id :: Int { id :: Int

8
web/src/Within/DBMemorial/User.hs
View File

@ -1,10 +1,10 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Within.DBMemorial.User where module Within.DBMemorial.User where
import Control.Applicative import Control.Applicative
import Data.Monoid() import Data.Monoid ()
import Data.Text import Data.Text
import Database.SQLite.Simple.FromRow import Database.SQLite.Simple.FromRow
data User = User data User = User
{ id :: Int { id :: Int

8
web/src/Within/DBMemorial/Views/Example.hs
View File

@ -2,10 +2,10 @@
module Within.DBMemorial.Views.Example where module Within.DBMemorial.Views.Example where
import Control.Monad (forM_) import Control.Monad (forM_)
import Text.Blaze.Html import Text.Blaze.Html
import Text.Blaze.Html5 as H import Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes as A import Text.Blaze.Html5.Attributes as A
numbers :: Int -> Html numbers :: Int -> Html
numbers n = docTypeHtml $ do numbers n = docTypeHtml $ do