From 58c2bfbcc8cdb5ac17d6f21fa176c8847743ad29 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Sun, 31 Jul 2016 23:26:34 +0200
Subject: [PATCH] Minor cleanup, Add -rtsopts to unittests

---
 brittany.cabal                                |  1 +
 .../Haskell/Brittany/Layouters/Type.hs        | 70 -------------------
 2 files changed, 1 insertion(+), 70 deletions(-)

diff --git a/brittany.cabal b/brittany.cabal
index b6713dc..2f189f4 100644
--- a/brittany.cabal
+++ b/brittany.cabal
@@ -221,6 +221,7 @@ test-suite unittests
     -j
     -fno-warn-unused-imports
     -fno-warn-orphans
+    -rtsopts
     -with-rtsopts "-M2G"
   }
   if flag(brittany-dev) {
diff --git a/src/Language/Haskell/Brittany/Layouters/Type.hs b/src/Language/Haskell/Brittany/Layouters/Type.hs
index 0310152..515514d 100644
--- a/src/Language/Haskell/Brittany/Layouters/Type.hs
+++ b/src/Language/Haskell/Brittany/Layouters/Type.hs
@@ -230,76 +230,6 @@ layoutType ltype@(L _ typ) = docWrapNode ltype $ case typ of
             ]
           )
       ]
-  -- HsQualTy (L _ cntxts) typ2 -> do
-  --   layouter@(Layouter desc _ _) <- layoutType typ2
-  --   cntxtLayouters <- cntxts `forM` layoutType
-  --   let mLine =
-  --         [ LayoutColumns ColumnKeyUnique [len] len
-  --         | -- (A a, B b) =>
-  --           -- 1   2    6
-  --           constraintLen <- if null cntxts
-  --                 then return 0
-  --                 else ( sequence
-  --                      $ cntxtLayouters <&> _layouter_desc .> _ldesc_line)
-  --                  <&> \cols -> 5
-  --                             + 2 * length cols
-  --                             + sum (_lColumns_min <$> cols)
-  --         , tyLen <- _lColumns_min <$> _ldesc_line desc
-  --         , let len = constraintLen + tyLen
-  --         ]
-  --   let mBlock =
-  --         [ BlockDesc
-  --           { _bdesc_blockStart = AllSameIndent -- this might not be accurate,
-  --                                          -- but it should simply not matter.
-  --                                          -- *lazy*
-  --           , _bdesc_min = minR
-  --           , _bdesc_max = maxR
-  --           , _bdesc_opIndentFloatUp = Nothing
-  --           }
-  --         | (tyMin, tyMax) <- descToMinMax 0 desc
-  --         , constrMinMaxs <- sequence $ cntxtLayouters <&> _layouter_desc .> descToMinMax 0
-  --         , let constrMin = constrMinMaxs <&> fst & maximum
-  --         , let constrMax = constrMinMaxs <&> snd & maximum
-  --         , let minR = 3 + maximum [constrMin, tyMin]
-  --         , let maxR = 3 + maximum [constrMax, tyMax]
-  --         ]
-  --   return $ Layouter
-  --     { _layouter_desc = LayoutDesc
-  --       { _ldesc_line  = mLine
-  --       , _ldesc_block = mBlock
-  --       }
-  --     , _layouter_func = \params -> do
-  --         layoutWritePriorCommentsRestore ltype
-  --         remaining <- getCurRemaining
-  --         case mLine of
-  --           Just (LayoutColumns _ _ m) | m <= remaining -> do
-  --             when (not $ null cntxts) $ do
-  --               layoutWriteAppend $ Text.pack "("
-  --               sequence_ $ intersperse (layoutWriteAppend $ Text.pack ", ")
-  --                         $ cntxtLayouters <&> \lay -> applyLayouterRestore lay defaultParams
-  --               layoutWriteAppend $ Text.pack ") => "
-  --             applyLayouterRestore layouter defaultParams
-  --           _ -> do
-  --             if null cntxts
-  --               then do
-  --                 layoutWriteAppend $ Text.pack "()"
-  --               else do
-  --               layoutWithNonParamIndent params $ do
-  --                 layoutWriteAppend $ Text.pack "( "
-  --                 let iAct = do
-  --                       layoutWriteNewline
-  --                       layoutWriteAppend $ Text.pack ", "
-  --                 sequence_ $ intersperse iAct
-  --                           $ cntxtLayouters <&> \lay -> applyLayouter lay defaultParams
-  --                 layoutWriteNewline
-  --                 layoutWriteAppend $ Text.pack ")"
-  --               layoutWriteNewline
-  --               layoutWriteAppend $ Text.pack "=> "
-  --             applyLayouterRestore layouter defaultParams 
-  --               { _params_opIndent = _params_opIndent params
-  --               }
-  --     , _layouter_ast = ltype
-  --     }
   HsFunTy typ1 typ2 -> do
     typeDoc1 <- docSharedWrapper layoutType typ1
     typeDoc2 <- docSharedWrapper layoutType typ2