On creating new migrations, denote apply/revert blocks as YAML ASCII …

…literals by default
jtdaugherty · Feb 6, 2015 · 9692cc9 · 9692cc9
1 parent 9f0db68
commit 9692cc9
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/src/Database/Schema/Migrations/Filesystem/Serialize.hs b/src/Database/Schema/Migrations/Filesystem/Serialize.hs
@@ -37,11 +37,11 @@ serializeRevert :: FieldSerializer
 serializeRevert m =
     case mRevert m of
       Nothing -> Nothing
-      Just revert -> Just $ "Revert:\n" ++
+      Just revert -> Just $ "Revert: |\n" ++
                      (serializeMultiline revert)
 
 serializeApply :: FieldSerializer
-serializeApply m = Just $ "Apply:\n" ++ (serializeMultiline $ mApply m)
+serializeApply m = Just $ "Apply: |\n" ++ (serializeMultiline $ mApply m)
 
 commonPrefix :: String -> String -> String
 commonPrefix a b = map fst $ takeWhile (uncurry (==)) (zip a b)

diff --git a/test/FilesystemSerializeTest.hs b/test/FilesystemSerializeTest.hs
@@ -35,36 +35,36 @@ serializationTestCases :: [(Migration, String)]
 serializationTestCases = [ (valid_full, "Description: A valid full migration.\n\
                                         \Created: " ++ tsStr ++ "\n\
                                         \Depends: another_migration\n\
-                                        \Apply:\n\
+                                        \Apply: |\n\
                                         \  CREATE TABLE test (\n\
                                         \    a int\n\
                                         \  );\n\n\
-                                        \Revert:\n\
+                                        \Revert: |\n\
                                         \  DROP TABLE test;\n")
                          , (valid_full { mDesc = Nothing }
                            , "Created: " ++ tsStr ++ "\n\
                              \Depends: another_migration\n\
-                             \Apply:\n\
+                             \Apply: |\n\
                              \  CREATE TABLE test (\n\
                              \    a int\n\
                              \  );\n\n\
-                             \Revert:\n\
+                             \Revert: |\n\
                              \  DROP TABLE test;\n")
                          , (valid_full { mDeps = ["one", "two"] }
                            , "Description: A valid full migration.\n\
                              \Created: " ++ tsStr ++ "\n\
                              \Depends: one two\n\
-                             \Apply:\n\
+                             \Apply: |\n\
                              \  CREATE TABLE test (\n\
                              \    a int\n\
                              \  );\n\n\
-                             \Revert:\n\
+                             \Revert: |\n\
                              \  DROP TABLE test;\n")
                          , (valid_full { mRevert = Nothing }
                            , "Description: A valid full migration.\n\
                              \Created: " ++ tsStr ++ "\n\
                              \Depends: another_migration\n\
-                             \Apply:\n\
+                             \Apply: |\n\
                              \  CREATE TABLE test (\n\
                              \    a int\n\
                              \  );\n")