Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-31 20:23:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

should work

Browse Source
This commit is contained in:
Keagan McClelland
2020-02-27 14:58:08 -07:00
parent 76766e5f94
commit f5fcbbe0f2
6 changed files with 46 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/Handler/Types/Status.hs
View File

@@ -5,6 +5,8 @@ module Handler.Types.Status where
import Startlude
import Data.Aeson
import Data.Char
import qualified Data.Text as T
import Yesod.Core.Content
import Lib.Types.Semver
@@ -30,8 +32,8 @@ instance ToContent (Maybe AppVersionRes) where
instance ToTypedContent (Maybe AppVersionRes) where
toTypedContent = toTypedContent . toJSON
querySpec :: Maybe Text -> Maybe AppVersionSpecification
querySpec = (readMaybe . toS =<<)
-- querySpec :: Text -> Maybe AppVersionSpecification
-- querySpec = readMaybe . toS . T.filter (not . isSpace)
querySpecD :: AppVersionSpecification -> Maybe Text -> AppVersionSpecification
querySpecD defaultSpec = fromMaybe defaultSpec . querySpec
-- querySpecD :: AppVersionSpecification -> Maybe Text -> AppVersionSpecification
-- querySpecD defaultSpec = fromMaybe defaultSpec . querySpec