groundhog-th 0.4.0.3 → 0.4.2
raw patch · 2 files changed
+5/−4 lines, 2 filesdep +textdep −utf8-string
Dependencies added: text
Dependencies removed: utf8-string
Files
- Database/Groundhog/TH.hs +3/−2
- groundhog-th.cabal +2/−2
Database/Groundhog/TH.hs view
@@ -29,10 +29,11 @@ import Language.Haskell.TH.Quote import Control.Applicative ((<$>)) import Control.Monad (forM, forM_, when, unless, liftM2)-import Data.ByteString.UTF8 (fromString) import Data.Char (isUpper, isLower, isSpace, isDigit, toUpper, toLower) import Data.List (nub, (\\)) import Data.Maybe (catMaybes, fromMaybe, isJust, isNothing)+import Data.String+import Data.Text.Encoding (encodeUtf8) import Data.Yaml as Y(decodeHelper, ParseException(..)) import qualified Text.Libyaml as Y @@ -560,7 +561,7 @@ parseDefinitions :: String -> Q Exp parseDefinitions s = do- result <- runIO $ decodeHelper (Y.decode $ fromString s)+ result <- runIO $ decodeHelper (Y.decode $ encodeUtf8 $ fromString s) case result of Left err -> case err of InvalidYaml (Just (Y.YamlParseException problem context mark)) -> fail $ unlines
groundhog-th.cabal view
@@ -1,5 +1,5 @@ name: groundhog-th-version: 0.4.0.3+version: 0.4.2 license: BSD3 license-file: LICENSE author: Boris Lykah <lykahb@gmail.com>@@ -19,7 +19,7 @@ , time >= 1.1.4 , containers >= 0.2 , yaml >= 0.8.1- , utf8-string >= 0.3 && < 0.4+ , text >= 0.8 exposed-modules: Database.Groundhog.TH Database.Groundhog.TH.Settings Database.Groundhog.TH.CodeGen