packages feed

hindent 4.5.1 → 4.5.2

raw patch · 7 files changed

+42/−24 lines, 7 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

hindent.cabal view
@@ -1,5 +1,5 @@ name:                hindent-version:             4.5.1+version:             4.5.2 synopsis:            Extensible Haskell pretty printer description:         Extensible Haskell pretty printer. Both a library and an executable.                      .
test/johan-tibell/expected/1.exp view
@@ -1,5 +1,6 @@ getGitProvider :: EventProvider GitRecord ()-getGitProvider = EventProvider+getGitProvider = +    EventProvider     { getModuleName = "Git"     , getEvents = getRepoCommits     }
test/johan-tibell/expected/2.exp view
@@ -1,5 +1,9 @@ strToMonth :: String -> Int-strToMonth month = case month of-    "Jan" -> 1-    "Feb" -> 2-    _ -> error $ "Unknown month " ++ month+strToMonth month = +    case month of+        "Jan" -> +            1+        "Feb" -> +            2+        _ -> +            error $ "Unknown month " ++ month
test/johan-tibell/expected/3.exp view
@@ -3,4 +3,5 @@     name <- getLine     putStrLn $ greeting name   where-    greeting name = "Hello, " ++ name ++ "!"+    greeting name = +        "Hello, " ++ name ++ "!"
test/johan-tibell/expected/4.exp view
@@ -1,5 +1,6 @@ commitToEvent :: FolderPath -> TimeZone -> Commit -> Event.Event-commitToEvent gitFolderPath timezone commit = Event.Event+commitToEvent gitFolderPath timezone commit = +    Event.Event     { pluginName = getModuleName getGitProvider     , eventIcon = "glyphicon-cog"     , eventDate = localTimeToUTC
test/johan-tibell/expected/6.exp view
@@ -1,19 +1,25 @@ f :: Int f x-    | x <- Just x-    , x <- Just x = -        case x of-            Just x -> e-    | otherwise = do-        e+  | x <- Just x+  , x <- Just x = +      case x of+          Just x -> +              e+  | otherwise = do+      e   where-    x = y+    x = +        y -g x = case x of-    a -> x+g x = +    case x of+        a -> +            x   where-    foo = case x of-        _ -> do-            launchMissiles+    foo = +        case x of+            _ -> do+                launchMissiles       where-        y = 2+        y = +            2
test/johan-tibell/expected/7.exp view
@@ -1,8 +1,13 @@ g x = -    let x = 1+    +    let x = +            1     in x   where     foo = -        let y = 2-            z = 3+        +        let y = +                2+            z = +                3         in y