diff --git a/Changelog.md b/Changelog.md --- a/Changelog.md +++ b/Changelog.md @@ -1,3 +1,7 @@ +### 0.2.1.1 + +- Fixed examples of simple services handlers. + ### 0.2.1.0 - Derive *TimeInterval* from *Show*. diff --git a/NgxExport/Tools.hs b/NgxExport/Tools.hs --- a/NgxExport/Tools.hs +++ b/NgxExport/Tools.hs @@ -167,7 +167,7 @@ -- File __/test_tools.hs/__. -- -- @ --- {\-\# LANGUAGE TemplateHaskell, DeriveGeneric, RecordWildCards \#\-} +-- {-\# LANGUAGE TemplateHaskell, DeriveGeneric, RecordWildCards \#-} -- -- module TestTools where -- @@ -189,14 +189,14 @@ -- testRead = return . C8L.pack . show -- -- testReadInt :: Int -> Bool -> IO L.ByteString --- __/testReadInt/__ = const testRead +-- __/testReadInt/__ = const . testRead -- 'ngxExportSimpleServiceTyped' \'testReadInt \'\'Int $ -- 'PersistentService' $ Just $ 'Sec' 10 -- -- newtype Conf = Conf Int deriving (Read, Show) -- -- testReadConf :: Conf -> Bool -> IO L.ByteString --- __/testReadConf/__ = const testRead +-- __/testReadConf/__ = const . testRead -- 'ngxExportSimpleServiceTyped' \'testReadConf \'\'Conf $ -- 'PersistentService' $ Just $ 'Sec' 10 -- @@ -219,7 +219,7 @@ -- instance FromJSON ConfJSON -- -- testReadConfJSON :: ConfJSON -> Bool -> IO L.ByteString --- __/testReadConfJSON/__ = const testReadJSON +-- __/testReadConfJSON/__ = const . testReadJSON -- 'ngxExportSimpleServiceTypedAsJSON' \'testReadConfJSON \'\'ConfJSON -- 'SingleShotService' -- @ diff --git a/ngx-export-tools.cabal b/ngx-export-tools.cabal --- a/ngx-export-tools.cabal +++ b/ngx-export-tools.cabal @@ -1,5 +1,5 @@ name: ngx-export-tools -version: 0.2.1.0 +version: 0.2.1.1 synopsis: Extra tools for Nginx haskell module description: Extra tools for