{-# LANGUAGE OverloadedStrings #-} module Main where import Web.Scotty import Data.Char import Control.Monad.IO.Class import Database.HDBC.Sqlite3 import Database.HDBC import Data.List.Split import Data.Text.Lazy.Encoding (decodeUtf8) import Data.Text.Lazy hiding (splitOn,map,concat) import Data.Time import Database import Todo import Stats import Paths_Villefort getDone = makeQuery "select Title, time from todo where due = Date('now','localtime') and state = 0" getWeeks = do raw <- makeQuery "select id, Title from weeks where state = 1 order by Title" return $ Prelude.mapM (\x -> [Prelude.head x ,( Prelude.tail (Prelude.last x))]) raw getIndex :: [[Char]] -> Int -> [Char] getIndex str i = (Data.List.Split.splitOn "=" (str !! i)) !! 1 -- | Converts date from Javascript to sqlite date fromat convDate :: String -> String convDate date = newDate where split = Data.List.Split.splitOn "%2F" date newDate = (split !! 2) ++ "-" ++ (split !! 0) ++ "-" ++ (split !! 1) -- | makes html for radiobutton makeRadio x = "