haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More stylish

Browse Source
This commit is contained in:
Michael Snoyman 2012-11-05 16:29:54 +02:00
parent 78cc08e39f
commit b530bb9aaa
2 changed files with 32 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
yesod/MultiFile.hs
View File

@ -1,23 +1,27 @@
-- FIXME: Depend on the not-yet-released project-template library.
{-# LANGUAGE OverloadedStrings #-}
module MultiFile where
import Prelude hiding (FilePath)
import Data.Conduit (yield, (=$), ($$), awaitForever, Conduit, leftover, await, Sink, MonadResource)
import Data.Text (Text)
import Control.Monad.IO.Class (MonadIO, liftIO)
import Data.Functor.Identity (runIdentity)
import qualified Data.ByteString.Base64 as B64
import qualified Data.ByteString as S
import Control.Monad (unless)
import Data.Conduit.List (sinkNull)
import qualified Data.Conduit.Text as CT
import qualified Data.Conduit.List as CL
import Filesystem.Path.CurrentOS (encode, directory, fromText, (</>), FilePath, encodeString)
import Filesystem (createTree)
import Control.Monad.Trans.Resource (runExceptionT)
import Data.Conduit.Binary (sinkFile)
import Data.Text.Encoding (encodeUtf8)
import qualified Data.Text as T
import Control.Monad (unless)
import Control.Monad.IO.Class (MonadIO, liftIO)
import Control.Monad.Trans.Resource (runExceptionT)
import qualified Data.ByteString as S
import qualified Data.ByteString.Base64 as B64
import Data.Conduit (Conduit, MonadResource, Sink,
await, awaitForever, leftover,
yield, ($$), (=$))
import Data.Conduit.Binary (sinkFile)
import Data.Conduit.List (sinkNull)
import qualified Data.Conduit.List as CL
import qualified Data.Conduit.Text as CT
import Data.Functor.Identity (runIdentity)
import Data.Text (Text)
import qualified Data.Text as T
import Data.Text.Encoding (encodeUtf8)
import Filesystem (createTree)
import Filesystem.Path.CurrentOS (FilePath, directory, encode,
encodeString, fromText, (</>))
import Prelude hiding (FilePath)
unpackMultiFile
:: MonadResource m

22
yesod/Scaffolding/Scaffolder.hs
View File

@ -1,18 +1,18 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Scaffolding.Scaffolder (scaffold) where
import qualified Data.Text.Lazy as LT
import Control.Arrow ((&&&))
import qualified Data.ByteString.Char8 as S
import System.IO
import Text.Shakespeare.Text (textFile, renderTextUrl)
import qualified Data.Text as T
import qualified Data.Text.Lazy.IO as TLIO
import Control.Arrow ((&&&))
import Data.FileEmbed (embedFile)
import Data.String (fromString)
import MultiFile (unpackMultiFile)
import Data.Conduit (yield, ($$), runResourceT)
import Data.Conduit (runResourceT, yield, ($$))
import Data.FileEmbed (embedFile)
import Data.String (fromString)
import qualified Data.Text as T
import qualified Data.Text.Lazy as LT
import qualified Data.Text.Lazy.IO as TLIO
import MultiFile (unpackMultiFile)
import System.IO
import Text.Shakespeare.Text (renderTextUrl, textFile)
prompt :: (String -> Maybe a) -> IO a
prompt f = do