format all the things

src/Lib/Error.hs

@@ -11,7 +11,7 @@ import           Data.String.Interpolate.IsString
 
 type S9ErrT m = ExceptT S9Error m
 
-data S9Error = 
+data S9Error =
       PersistentE Text
     | AppMgrE Text Int
     deriving (Show, Eq)
@@ -21,10 +21,10 @@ instance Exception S9Error
 -- | Redact any sensitive data in this function
 toError :: S9Error -> Error
 toError = \case
-    PersistentE t -> Error DATABASE_ERROR t
+    PersistentE t    -> Error DATABASE_ERROR t
     AppMgrE cmd code -> Error APPMGR_ERROR [i|"appmgr #{cmd}" exited with #{code}|]
 
-data ErrorCode = 
+data ErrorCode =
       DATABASE_ERROR
     | APPMGR_ERROR
 
@@ -51,8 +51,8 @@ instance ToContent S9Error where
 
 toStatus :: S9Error -> Status
 toStatus = \case
-    PersistentE _          -> status500
-    AppMgrE     _ _        -> status500
+    PersistentE _ -> status500
+    AppMgrE _ _   -> status500
 
 
 handleS9ErrT :: MonadHandler m => S9ErrT m a -> m a

src/Lib/External/AppMgr.hs

@@ -44,42 +44,44 @@ readProcessInheritStderr a b c = liftIO $ do
 
 getConfig :: (MonadIO m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> S9ErrT m Text
 getConfig appmgrPath appPath e@(Extension appId) = fmap decodeUtf8 $ do
-    (ec, out) <- readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "config", appPath <> show e, "--json"] ""
+    (ec, out) <- readProcessInheritStderr (appmgrPath <> "embassy-sdk")
+                                          ["inspect", "config", appPath <> show e, "--json"]
+                                          ""
     case ec of
         ExitSuccess   -> pure out
         ExitFailure n -> throwE $ AppMgrE [i|info config #{appId} \--json|] n
 
-getManifest ::  (MonadIO m, KnownSymbol a)  => FilePath -> FilePath ->  Extension a -> S9ErrT m ByteString
+getManifest :: (MonadIO m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> S9ErrT m ByteString
 getManifest appmgrPath appPath e@(Extension appId) = do
     (ec, bs) <- readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "manifest", appPath <> show e] ""
     case ec of
-        ExitSuccess -> pure bs
+        ExitSuccess   -> pure bs
         ExitFailure n -> throwE $ AppMgrE [i|embassy-sdk inspect manifest #{appId}|] n
 
-getIcon ::  (MonadIO m, KnownSymbol a)  => FilePath -> FilePath ->  Extension a -> S9ErrT m ByteString
+getIcon :: (MonadIO m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> S9ErrT m ByteString
 getIcon appmgrPath appPath e@(Extension icon) = do
     (ec, bs) <- readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "icon", appPath] ""
     case ec of
-        ExitSuccess -> pure bs
+        ExitSuccess   -> pure bs
         ExitFailure n -> throwE $ AppMgrE [i|embassy-sdk inspect icon #{icon}|] n
 
-getPackageHash ::  (MonadIO m, KnownSymbol a)  => FilePath -> FilePath ->  Extension a -> S9ErrT m ByteString
+getPackageHash :: (MonadIO m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> S9ErrT m ByteString
 getPackageHash appmgrPath appPath e@(Extension appId) = do
     (ec, bs) <- readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "hash", appPath <> show e] ""
     case ec of
-        ExitSuccess -> pure bs
+        ExitSuccess   -> pure bs
         ExitFailure n -> throwE $ AppMgrE [i|embassy-sdk inspect hash #{appId}|] n
 
-getInstructions ::  (MonadIO m, KnownSymbol a)  => FilePath -> FilePath ->  Extension a -> S9ErrT m ByteString
+getInstructions :: (MonadIO m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> S9ErrT m ByteString
 getInstructions appmgrPath appPath e@(Extension appId) = do
     (ec, bs) <- readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "instructions", appPath] ""
     case ec of
-        ExitSuccess -> pure bs
+        ExitSuccess   -> pure bs
         ExitFailure n -> throwE $ AppMgrE [i|embassy-sdk inspect instructions #{appId}|] n
 
-getLicense ::  (MonadIO m, KnownSymbol a)  => FilePath -> FilePath ->  Extension a -> S9ErrT m ByteString
+getLicense :: (MonadIO m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> S9ErrT m ByteString
 getLicense appmgrPath appPath e@(Extension appId) = do
     (ec, bs) <- readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "license", appPath] ""
     case ec of
-        ExitSuccess -> pure bs
-        ExitFailure n -> throwE $ AppMgrE [i|embassy-sdk inspect license #{appId}|] n
+        ExitSuccess   -> pure bs
+        ExitFailure n -> throwE $ AppMgrE [i|embassy-sdk inspect license #{appId}|] n

src/Lib/SystemCtl.hs

@@ -1,7 +1,7 @@
 module Lib.SystemCtl where
 
-import           Startlude      hiding (words)
-import Protolude.Unsafe
+import           Startlude               hiding ( words )
+import           Protolude.Unsafe
 
 import           Data.String
 import           System.Process

src/Lib/Types/AppIndex.hs

@@ -18,10 +18,10 @@ import           Lib.Types.Emver
 import           Orphans.Emver                  ( )
 import           System.Directory
 import           Lib.Registry
-import Model
-import qualified Data.Text as T
-import Data.String.Interpolate.IsString
-import qualified Data.ByteString.Lazy as BS
+import           Model
+import qualified Data.Text                     as T
+import           Data.String.Interpolate.IsString
+import qualified Data.ByteString.Lazy          as BS
 
 type AppIdentifier = Text
 
@@ -37,14 +37,15 @@ data VersionInfo = VersionInfo
 
 mapSVersionToVersionInfo :: [SVersion] -> [VersionInfo]
 mapSVersionToVersionInfo sv = do
-    (\v -> VersionInfo {
-      versionInfoVersion = sVersionNumber v
-    , versionInfoReleaseNotes = sVersionReleaseNotes v
-    , versionInfoDependencies = HM.empty
-    , versionInfoOsRequired = sVersionOsVersionRequired v
-    , versionInfoOsRecommended = sVersionOsVersionRecommended v
-    , versionInfoInstallAlert = Nothing
-    }) <$> sv
+    (\v -> VersionInfo { versionInfoVersion       = sVersionNumber v
+                       , versionInfoReleaseNotes  = sVersionReleaseNotes v
+                       , versionInfoDependencies  = HM.empty
+                       , versionInfoOsRequired    = sVersionOsVersionRequired v
+                       , versionInfoOsRecommended = sVersionOsVersionRecommended v
+                       , versionInfoInstallAlert  = Nothing
+                       }
+        )
+        <$> sv
 
 instance Ord VersionInfo where
     compare = compare `on` versionInfoVersion
@@ -102,7 +103,7 @@ instance FromJSON AppManifest where
             storeAppVersionInfo <- config .: "version-info" >>= \case
                 []       -> fail "No Valid Version Info"
                 (x : xs) -> pure $ x :| xs
-            storeAppTimestamp   <- config .:? "timestamp"
+            storeAppTimestamp <- config .:? "timestamp"
             pure (appId, StoreApp { .. })
         return $ AppManifest (HM.fromList apps)
 instance ToJSON AppManifest where
@@ -121,10 +122,10 @@ filterOsRecommended av sa = case NE.filter ((av <||) . versionInfoOsRecommended)
 addFileTimestamp :: KnownSymbol a => FilePath -> Extension a -> StoreApp -> Version -> IO (Maybe StoreApp)
 addFileTimestamp appDir ext service v = do
     getVersionedFileFromDir appDir ext v >>= \case
-                Nothing -> pure Nothing
-                Just file -> do
-                    time <- getModificationTime file
-                    pure $ Just service {storeAppTimestamp = Just time }
+        Nothing   -> pure Nothing
+        Just file -> do
+            time <- getModificationTime file
+            pure $ Just service { storeAppTimestamp = Just time }
 
 data ServiceDependencyInfo = ServiceDependencyInfo
     { serviceDependencyInfoOptional :: Maybe Text
@@ -134,10 +135,10 @@ data ServiceDependencyInfo = ServiceDependencyInfo
     } deriving (Show)
 instance FromJSON ServiceDependencyInfo where
     parseJSON = withObject "service dependency info" $ \o -> do
-        serviceDependencyInfoOptional <- o .:? "optional"
-        serviceDependencyInfoVersion <- o .: "version"
+        serviceDependencyInfoOptional    <- o .:? "optional"
+        serviceDependencyInfoVersion     <- o .: "version"
         serviceDependencyInfoDescription <- o .:? "description"
-        serviceDependencyInfoCritical <- o .: "critical"
+        serviceDependencyInfoCritical    <- o .: "critical"
         pure ServiceDependencyInfo { .. }
 instance ToJSON ServiceDependencyInfo where
     toJSON ServiceDependencyInfo {..} = object
@@ -173,18 +174,18 @@ data ServiceManifest = ServiceManifest
     } deriving (Show)
 instance FromJSON ServiceManifest where
     parseJSON = withObject "service manifest" $ \o -> do
-        serviceManifestId <- o .: "id"
-        serviceManifestTitle <- o .: "title"
-        serviceManifestVersion <- o .: "version"
-        serviceManifestDescriptionLong <- o .: "description" >>= (.: "long")
+        serviceManifestId               <- o .: "id"
+        serviceManifestTitle            <- o .: "title"
+        serviceManifestVersion          <- o .: "version"
+        serviceManifestDescriptionLong  <- o .: "description" >>= (.: "long")
         serviceManifestDescriptionShort <- o .: "description" >>= (.: "short")
-        serviceManifestIcon <- o .: "assets" >>= (.: "icon")
-        serviceManifestReleaseNotes <- o .: "release-notes"
-        alerts <- o .: "alerts"
-        a <- for (HM.toList alerts) $ \(key, value) -> do
+        serviceManifestIcon             <- o .: "assets" >>= (.: "icon")
+        serviceManifestReleaseNotes     <- o .: "release-notes"
+        alerts                          <- o .: "alerts"
+        a                               <- for (HM.toList alerts) $ \(key, value) -> do
             alertType <- case readMaybe $ T.toUpper key of
-                    Nothing -> fail "could not parse alert key as ServiceAlert"
-                    Just t -> pure t
+                Nothing -> fail "could not parse alert key as ServiceAlert"
+                Just t  -> pure t
             alertDesc <- parseJSON value
             pure (alertType, alertDesc)
         let serviceManifestAlerts = HM.fromList a
@@ -197,7 +198,7 @@ instance ToJSON ServiceManifest where
         , "version" .= serviceManifestVersion
         , "description" .= object ["short" .= serviceManifestDescriptionShort, "long" .= serviceManifestDescriptionLong]
         , "release-notes" .= serviceManifestReleaseNotes
-        , "alerts" .= object [ t .= v | (k,v) <- HM.toList serviceManifestAlerts, let (String t) = toJSON k ]
+        , "alerts" .= object [ t .= v | (k, v) <- HM.toList serviceManifestAlerts, let (String t) = toJSON k ]
         , "dependencies" .= serviceManifestDependencies
         ]
 

src/Lib/Types/Category.hs

@@ -3,13 +3,13 @@
 
 module Lib.Types.Category where
 
-import Startlude
-import Database.Persist.Postgresql
-import Data.Aeson
-import Control.Monad
-import Yesod.Core
+import           Startlude
+import           Database.Persist.Postgresql
+import           Data.Aeson
+import           Control.Monad
+import           Yesod.Core
 
-data CategoryTitle = FEATURED 
+data CategoryTitle = FEATURED
         | BITCOIN
         | LIGHTNING
         | DATA
@@ -19,30 +19,30 @@ data CategoryTitle = FEATURED
     deriving (Eq, Enum, Show, Read)
 instance PersistField CategoryTitle where
     fromPersistValue = fromPersistValueJSON
-    toPersistValue = toPersistValueJSON
+    toPersistValue   = toPersistValueJSON
 instance PersistFieldSql CategoryTitle where
-  sqlType _ = SqlString
+    sqlType _ = SqlString
 instance ToJSON CategoryTitle where
     -- toJSON = String . T.toLower . show
-    toJSON = \case 
-        FEATURED -> "featured"
-        BITCOIN -> "bitcoin"
+    toJSON = \case
+        FEATURED  -> "featured"
+        BITCOIN   -> "bitcoin"
         LIGHTNING -> "lightning"
-        DATA -> "data"
+        DATA      -> "data"
         MESSAGING -> "messaging"
-        SOCIAL -> "social"
-        ALTCOIN -> "alt coin"
+        SOCIAL    -> "social"
+        ALTCOIN   -> "alt coin"
 instance FromJSON CategoryTitle where
     parseJSON = withText "CategoryTitle" $ \case
-        "featured"   -> pure FEATURED
-        "bitcoin"    -> pure BITCOIN
-        "lightning"  -> pure LIGHTNING
-        "data"       -> pure DATA
-        "messaging"  -> pure MESSAGING
-        "social"     -> pure SOCIAL
-        "alt coin"     -> pure ALTCOIN
-        _            -> fail "unknown category title"
+        "featured"  -> pure FEATURED
+        "bitcoin"   -> pure BITCOIN
+        "lightning" -> pure LIGHTNING
+        "data"      -> pure DATA
+        "messaging" -> pure MESSAGING
+        "social"    -> pure SOCIAL
+        "alt coin"  -> pure ALTCOIN
+        _           -> fail "unknown category title"
 instance ToContent CategoryTitle where
     toContent = toContent . toJSON
 instance ToTypedContent CategoryTitle where
-    toTypedContent = toTypedContent . toJSON
+    toTypedContent = toTypedContent . toJSON

src/Lib/Types/Emver.hs

@@ -48,8 +48,8 @@ import           Control.Applicative            ( liftA2
                                                 )
 import           Data.String                    ( IsString(..) )
 import qualified Data.Text                     as T
-import Data.Aeson
-import Startlude (Hashable)
+import           Data.Aeson
+import           Startlude                      ( Hashable )
 
 -- | AppVersion is the core representation of the SemverQuad type.
 newtype Version = Version { unVersion :: (Word, Word, Word, Word) } deriving (Eq, Ord, ToJSONKey, Hashable)