Init noodle
This commit is contained in:
commit
7da5e1005d
6 changed files with 86 additions and 0 deletions
1
.noodle.db.txt
Normal file
1
.noodle.db.txt
Normal file
|
@ -0,0 +1 @@
|
||||||
|
fromList [(2,Poll {name = "Was wollen wir trinken?", opts = fromList [(1,Opt {desc = "Bier", up = [], down = []}),(2,Opt {desc = "Wein", up = [], down = []}),(3,Opt {desc = "Wasser", up = [], down = []}),(4,Opt {desc = "Kaffee", up = [], down = []}),(5,Opt {desc = "Saft", up = [], down = []})]})]
|
26
LICENSE
Normal file
26
LICENSE
Normal file
|
@ -0,0 +1,26 @@
|
||||||
|
Copyright (c) 2015, Konrad Merz
|
||||||
|
All rights reserved.
|
||||||
|
|
||||||
|
Redistribution and use in source and binary forms, with or without
|
||||||
|
modification, are permitted provided that the following conditions are
|
||||||
|
met:
|
||||||
|
|
||||||
|
1. Redistributions of source code must retain the above copyright
|
||||||
|
notice, this list of conditions and the following disclaimer.
|
||||||
|
|
||||||
|
2. Redistributions in binary form must reproduce the above copyright
|
||||||
|
notice, this list of conditions and the following disclaimer in the
|
||||||
|
documentation and/or other materials provided with the
|
||||||
|
distribution.
|
||||||
|
|
||||||
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||||
|
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||||
|
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||||
|
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
||||||
|
OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||||
|
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||||
|
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||||
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||||
|
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||||
|
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||||
|
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
2
Setup.hs
Normal file
2
Setup.hs
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
import Distribution.Simple
|
||||||
|
main = defaultMain
|
25
noodle.cabal
Normal file
25
noodle.cabal
Normal file
|
@ -0,0 +1,25 @@
|
||||||
|
-- Initial noodle.cabal generated by cabal init. For further
|
||||||
|
-- documentation, see http://haskell.org/cabal/users-guide/
|
||||||
|
|
||||||
|
name: noodle
|
||||||
|
version: 0.1.0.0
|
||||||
|
synopsis: Noodle - The real doole
|
||||||
|
-- description:
|
||||||
|
homepage: https://github.com/kmerz/noodle
|
||||||
|
license: BSD2
|
||||||
|
license-file: LICENSE
|
||||||
|
author: Konrad Merz
|
||||||
|
maintainer: kmerz@hulud.net
|
||||||
|
-- copyright:
|
||||||
|
category: Web
|
||||||
|
build-type: Simple
|
||||||
|
-- extra-source-files:
|
||||||
|
cabal-version: >=1.10
|
||||||
|
|
||||||
|
executable noodle
|
||||||
|
main-is: main.hs
|
||||||
|
other-modules: Noodle.Views.Index
|
||||||
|
-- other-extensions:
|
||||||
|
build-depends: base >=4.7 && <4.8, scotty, blaze-html, monads-tf
|
||||||
|
hs-source-dirs: src
|
||||||
|
default-language: Haskell2010
|
15
src/Noodle/Views/Index.hs
Normal file
15
src/Noodle/Views/Index.hs
Normal file
|
@ -0,0 +1,15 @@
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
|
||||||
|
module Noodle.Views.Index where
|
||||||
|
|
||||||
|
import qualified Text.Blaze.Html5 as H
|
||||||
|
import qualified Text.Blaze.Html5.Attributes as A
|
||||||
|
import Text.Blaze.Html.Renderer.Text
|
||||||
|
|
||||||
|
render items = do
|
||||||
|
H.html $ do
|
||||||
|
H.body $ do
|
||||||
|
H.h1 "My todo list"
|
||||||
|
H.ul $ do
|
||||||
|
H.li (head items)
|
||||||
|
H.li (head items)
|
17
src/main.hs
Normal file
17
src/main.hs
Normal file
|
@ -0,0 +1,17 @@
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
|
||||||
|
import Control.Monad.Trans (liftIO)
|
||||||
|
import qualified Web.Scotty as S
|
||||||
|
import qualified Text.Blaze.Html5 as H
|
||||||
|
import qualified Text.Blaze.Html5.Attributes as A
|
||||||
|
import Text.Blaze.Html.Renderer.Text
|
||||||
|
import Database.HDBC
|
||||||
|
import Database.HDBC.Sqlite3
|
||||||
|
|
||||||
|
import qualified Noodle.Views.Index
|
||||||
|
|
||||||
|
blaze = S.html . renderHtml
|
||||||
|
|
||||||
|
main = S.scotty 3000 $ do
|
||||||
|
S.get "/" $ do
|
||||||
|
blaze $ Noodle.Views.Index.render [ "Konrad" ]
|
Loading…
Reference in a new issue