9b9604b · typeable/bloodhound

git.iko.soy/typeable/bloodhound

on master help sign in

Format date as dd-MM-yyyy to support stricter 2.0+

9b9604bAlistair Bush10 years ago

src/Database/Bloodhound/Types.hs+1−4

@@ -1917,10 +1917,7 @@ instance ToJSON DateRangeAggRange where

1917instance ToJSON DateMathExpr where

1918 toJSON (DateMathExpr a mods) = String (fmtA a <> mconcat (fmtMod <$> mods))

1919 where fmtA DMNow = "now"

1920− fmtA (DMDate date) = case toGregorian date of

1920+ fmtA (DMDate date) = (T.pack $ showGregorian date) <> "||"

1921− (y,m,d) -> showText y <> "-" <>

1922− showText m <> "-" <>

1923− showText d <> "||"

1924 fmtMod (AddTime n u) = "+" <> showText n <> fmtU u

1921 fmtMod (AddTime n u) = "+" <> showText n <> fmtU u

1925 fmtMod (SubtractTime n u) = "-" <> showText n <> fmtU u

1922 fmtMod (SubtractTime n u) = "-" <> showText n <> fmtU u

1926 fmtMod (RoundDownTo u) = "/" <> fmtU u

1923 fmtMod (RoundDownTo u) = "/" <> fmtU u