add parse case for mispelling; clean up imports

This commit is contained in:
Lucy Cifferello
2022-12-19 10:25:20 -05:00
parent 6df87e9873
commit 487bb97170
2 changed files with 2 additions and 1 deletions

View File

@@ -19,7 +19,7 @@ import Database.Esqueleto.Experimental (
) )
import Foundation (Handler, RegistryCtx (appSettings)) import Foundation (Handler, RegistryCtx (appSettings))
import Handler.Package.V0.ReleaseNotes (ReleaseNotes (..)) import Handler.Package.V0.ReleaseNotes (ReleaseNotes (..))
import Handler.Util (queryParamAs, tickleMAU, getArchQuery) import Handler.Util (queryParamAs, getArchQuery)
import Lib.Types.Emver (Version, parseVersion) import Lib.Types.Emver (Version, parseVersion)
import Model (EntityField (..), OsVersion (..)) import Model (EntityField (..), OsVersion (..))
import Orphans.Emver () import Orphans.Emver ()

View File

@@ -99,6 +99,7 @@ instance Read OsArch where
readsPrec _ "x86_64" = [(X86_64, "")] readsPrec _ "x86_64" = [(X86_64, "")]
readsPrec _ "aarch64" = [(AARCH64, "")] readsPrec _ "aarch64" = [(AARCH64, "")]
readsPrec _ "raspberrypi" = [(RASPBERRYPI, "")] readsPrec _ "raspberrypi" = [(RASPBERRYPI, "")]
readsPrec _ "rasberrypi" = [(RASPBERRYPI, "")]
readsPrec _ _ = [] readsPrec _ _ = []
instance PersistField OsArch where instance PersistField OsArch where
toPersistValue = PersistText . show toPersistValue = PersistText . show