diff --git a/src/Database/Schema/Migrations/Filesystem.hs b/src/Database/Schema/Migrations/Filesystem.hs index 9ccb63e..c646dcc 100644 --- a/src/Database/Schema/Migrations/Filesystem.hs +++ b/src/Database/Schema/Migrations/Filesystem.hs @@ -156,7 +156,7 @@ instance ToJSON UTCTimeYaml where -- Keeps things as the old Show/Read-based format, e.g "2009-04-15 10:02:06 UTC" utcTimeYamlFormat :: String -utcTimeYamlFormat = "%F %T UTC" +utcTimeYamlFormat = "%F %T%Q UTC" newtype DependsYaml = DependsYaml { unDependsYaml :: [Text] diff --git a/src/Moo/Main.hs b/src/Moo/Main.hs index 259a4c4..19549dc 100644 --- a/src/Moo/Main.hs +++ b/src/Moo/Main.hs @@ -10,7 +10,8 @@ module Moo.Main ) where -import Control.Monad.Reader (forM_, runReaderT, when) +import Control.Monad (forM_, when) +import Control.Monad.Reader (runReaderT) import Database.HDBC (SqlError, catchSql, seErrorMsg) import Prelude hiding (lookup) import Data.Text (Text)