Merge pull request #15 from Aviora/sorting-of-command-output
Add sorting of 'list' command
commit762896e51f3fbd4ee3333c39a68c2780ce587c73
authorandor0 <aaorlov1@gmail.com>
dateMon 25 May 2020, 15:48 (6 years ago)
parentb16ba0fad90136
src/DMS.hs+1−1
@@ -96,7 +96,7 @@ listH = do
9696 where
9797 getDeployments :: PgPool -> AppM [DeploymentName]
9898 getDeployments p = fmap (fmap fromOnly) . liftIO $
99− withResource p $ \conn -> query_ conn "SELECT name FROM deployments"
99+ withResource p $ \conn -> query_ conn "SELECT name FROM deployments ORDER BY name"
100100
101101createH :: Deployment -> AppM NoContent
102102createH dep = do