Fixed findAllMigrations not finding migrations without description. F…

…ixes #556

IHP/SchemaMigration.hs

@@ -13,6 +13,7 @@ import IHP.ModelSupport
 import qualified Database.PostgreSQL.Simple.Types as PG
 import qualified Data.Time.Clock.POSIX as POSIX
 import qualified IHP.NameSupport as NameSupport
+import qualified Data.Char as Char
 
 data Migration = Migration
     { revision :: Int
@@ -104,7 +105,7 @@ pathToMigration fileName = case revision of
     where
         revision :: Maybe Int
         revision = fileName
-                |> Text.split (== '-')
+                |> Text.split (not . Char.isDigit)
                 |> head
                 |> fmap textToInt
                 |> join

Test/Main.hs

@@ -29,6 +29,7 @@ import qualified Test.HaskellSupportSpec
 import qualified Test.View.CSSFrameworkSpec
 import qualified Test.Controller.ContextSpec
 import qualified Test.Controller.ParamSpec
+import qualified Test.SchemaMigrationSpec
 
 main :: IO ()
 main = hspec do
@@ -44,4 +45,5 @@ main = hspec do
     Test.HtmlSupport.ParserSpec.tests
     Test.View.CSSFrameworkSpec.tests
     Test.Controller.ContextSpec.tests
-    Test.Controller.ParamSpec.tests
+    Test.Controller.ParamSpec.tests
+    Test.SchemaMigrationSpec.tests

Test/SchemaMigrationSpec.hs

@@ -0,0 +1,22 @@
+{-|
+Module: Test.HaskellSupportSpec
+Copyright: (c) digitally induced GmbH, 2020
+-}
+module Test.SchemaMigrationSpec where
+
+import Test.Hspec
+import IHP.Prelude
+import IHP.SchemaMigration
+import qualified System.Directory as Directory
+
+tests = do
+    describe "IHP.SchemaMigration" do
+        describe "findAllMigrations" do
+            it "should find all migrations" do
+                Directory.withCurrentDirectory "Test/TestApp" do
+                    migrations <- findAllMigrations
+
+                    migrations `shouldBe`
+                            [ Migration { revision = 1605721927, migrationFile = "1605721927.sql"}
+                            , Migration { revision = 1605721940, migrationFile = "1605721940-create-users.sql" }
+                            ]

Test/TestApp/Application/Migration/1605721927.sql

@@ -0,0 +1 @@
+a

Test/TestApp/Application/Migration/1605721940-create-users.sql

@@ -0,0 +1 @@
+CREATE TABLE users (id SERIAL PRIMARY KEY);

Test/TestApp/Application/Migration/not_a_migration

@@ -0,0 +1 @@
+other file that is not a migration