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

30
yesod/MultiFile.hs
View File

@ -1,23 +1,27 @@
-- FIXME: Depend on the not-yet-released project-template library.
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module MultiFile where 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 Control.Monad (unless)
import Data.Conduit.List (sinkNull) import Control.Monad.IO.Class (MonadIO, liftIO)
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 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.Binary (sinkFile)
import Data.Text.Encoding (encodeUtf8) 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 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 unpackMultiFile
:: MonadResource m :: MonadResource m

16
yesod/Scaffolding/Scaffolder.hs
View File

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