Bump stack snapshot

app-ctl/Main.hs

@@ -11,7 +11,10 @@ main = do
     args <- getArgs
     case args of
         ["add-user", name] -> Main.addUser name
-        _ -> putStrLn "Invalid arguments."
+        _ -> showHelp
+
+showHelp :: IO ()
+showHelp = putStrLn "TODO show help"
 
 addUser :: Text -> IO ()
 addUser name = do

stack.yaml

-resolver: lts-13.22
+resolver: lts-14.5
 
 packages:
 - .

stack.yaml.lock

@@ -6,7 +6,7 @@
 packages: []
 snapshots:
 - completed:
-    size: 498186
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/22.yaml
-    sha256: d4f07dc3d5658260c2fe34266ad7618f6c84d34decf559c9c786ac1cfccf4e7b
-  original: lts-13.22
+    size: 524104
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/14/5.yaml
+    sha256: 3c146eebc1b383211ea49d5422fb3d63d699da12307b4bc989107300eb579d60
+  original: lts-14.5