Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 11:51:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

redundancies

Browse Source
This commit is contained in:
Keagan McClelland
2020-02-27 15:04:29 -07:00
parent f5fcbbe0f2
commit dae7164d3e
3 changed files with 1 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,8 +5,6 @@ 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
@@ -31,9 +29,3 @@ instance ToContent (Maybe AppVersionRes) where
toContent = toContent . toJSON
instance ToTypedContent (Maybe AppVersionRes) where
toTypedContent = toTypedContent . toJSON
-- querySpec :: Text -> Maybe AppVersionSpecification
-- querySpec = readMaybe . toS . T.filter (not . isSpace)
-- querySpecD :: AppVersionSpecification -> Maybe Text -> AppVersionSpecification
-- querySpecD defaultSpec = fromMaybe defaultSpec . querySpec