From 1084edfef2a923a8f76def605d4e1cffa953e478 Mon Sep 17 00:00:00 2001 From: Ollie Charles Date: Thu, 6 Jul 2023 14:43:49 +0100 Subject: [PATCH 1/2] Build with latest mtl --- src/Moo/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) From 2ae2fe165584aa57ff939116175134380b6193e9 Mon Sep 17 00:00:00 2001 From: Teo Camarasu Date: Wed, 17 Dec 2025 11:24:29 +0000 Subject: [PATCH 2/2] Fix UTCTime parsing We lost the picosecond bit at some point --- src/Database/Schema/Migrations/Filesystem.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]