Refactor internals and expose pPrintModule

.devcontainer/Dockerfile

@@ -1,30 +0,0 @@
-ARG UBUNTU_TAG=20.04
-FROM ubuntu:"$UBUNTU_TAG"
-
-ENV LANG=C.UTF-8
-RUN \
-    apt-get update && \
-    apt-get install --assume-yes curl gcc git libgmp-dev libtinfo-dev make sudo
-
-ARG GHCUP_VERSION=0.1.17.4
-RUN \
-    curl --output /usr/local/bin/ghcup "https://downloads.haskell.org/~ghcup/$GHCUP_VERSION/x86_64-linux-ghcup-$GHCUP_VERSION" && \
-    chmod +x /usr/local/bin/ghcup && \
-    ghcup --version
-
-ARG USER_NAME=haskell
-RUN \
-    useradd --create-home --shell "$( which bash )" "$USER_NAME" && \
-    echo "$USER_NAME ALL=(ALL) NOPASSWD: ALL" | tee "/etc/sudoers.d/$USER_NAME"
-USER "$USER_NAME"
-ENV PATH="/home/$USER_NAME/.cabal/bin:/home/$USER_NAME/.ghcup/bin:$PATH"
-
-ARG GHC_VERSION=9.0.1
-RUN \
-    ghcup install ghc "$GHC_VERSION" --set && \
-    ghc --version
-
-ARG CABAL_VERSION=3.6.2.0
-RUN \
-    ghcup install cabal "$CABAL_VERSION" --set && \
-    cabal --version

.devcontainer/devcontainer.json

@@ -1,6 +0,0 @@
-{
-    "build": {
-        "dockerfile": "Dockerfile"
-    },
-    "postCreateCommand": "cabal update"
-}

.github/workflows/ci.yaml

@@ -1,105 +0,0 @@
-name: CI
-on:
-  pull_request:
-    branches:
-      - main
-      - master
-  push:
-    branches:
-      - main
-      - master
-  release:
-    types:
-      - created
-jobs:
-  build:
-    strategy:
-      fail-fast: false
-      matrix:
-        include:
-          - { os: macos-11, ghc: 9.0.1, cabal: 3.6.2.0 }
-          - { os: ubuntu-20.04, ghc: 9.0.1, cabal: 3.6.2.0 }
-          - { os: windows-2019, ghc: 9.0.1, cabal: 3.6.2.0, ext: .exe }
-    runs-on: ${{ matrix.os }}
-    steps:
-      - uses: actions/checkout@v2
-      - run: mkdir artifact
-      - run: mkdir artifact/${{ matrix.os }}
-      - id: setup-haskell
-        uses: haskell/actions/setup@v1
-        with:
-          ghc-version: ${{ matrix.ghc }}
-          cabal-version: ${{ matrix.cabal }}
-      - run: cabal configure --enable-tests --flags pedantic --jobs
-      - run: cabal freeze
-      - run: cat cabal.project.freeze
-      - uses: actions/cache@v2
-        with:
-          path: ${{ steps.setup-haskell.outputs.cabal-store }}
-          key: ${{ matrix.os }}-${{ matrix.ghc }}-${{ matrix.cabal }}-${{ hashFiles('cabal.project.freeze') }}
-          restore-keys: |
-            ${{ matrix.os }}-${{ matrix.ghc }}-${{ matrix.cabal }}-
-            ${{ matrix.os }}-${{ matrix.ghc }}-
-      - run: cabal build
-      - run: cabal install --installdir artifact/${{ matrix.os }} --install-method copy
-      - run: cabal test --test-show-details direct
-      - run: cabal check
-      - run: cabal sdist --output-dir artifact/${{ matrix.os }}
-      - uses: svenstaro/upx-action@v2
-        with:
-          file: artifact/${{ matrix.os }}/brittany${{ matrix.ext }}
-      - uses: actions/upload-artifact@v2
-        with:
-          path: artifact
-          name: brittany-${{ github.sha }}
-
-  release:
-    needs: build
-    if: github.event_name == 'release'
-    runs-on: ubuntu-20.04
-    steps:
-
-      - uses: actions/checkout@v2
-
-      - uses: actions/download-artifact@v2
-        with:
-          name: brittany-${{ github.sha }}
-          path: artifact
-
-      - uses: actions/upload-release-asset@v1
-        env:
-          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
-        with:
-          asset_content_type: application/octet-stream
-          asset_name: brittany-${{ github.event.release.tag_name }}-ubuntu
-          asset_path: artifact/ubuntu-20.04/brittany
-          upload_url: ${{ github.event.release.upload_url }}
-
-      - uses: actions/upload-release-asset@v1
-        env:
-          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
-        with:
-          asset_content_type: application/octet-stream
-          asset_name: brittany-${{ github.event.release.tag_name }}-macos
-          asset_path: artifact/macos-11/brittany
-          upload_url: ${{ github.event.release.upload_url }}
-
-      - uses: actions/upload-release-asset@v1
-        env:
-          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
-        with:
-          asset_content_type: application/octet-stream
-          asset_name: brittany-${{ github.event.release.tag_name }}-windows.exe
-          asset_path: artifact/windows-2019/brittany.exe
-          upload_url: ${{ github.event.release.upload_url }}
-
-      - uses: actions/upload-release-asset@v1
-        env:
-          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
-        with:
-          asset_content_type: application/gzip
-          asset_name: brittany-${{ github.event.release.tag_name }}.tar.gz
-          asset_path: artifact/ubuntu-20.04/brittany-${{ github.event.release.tag_name }}.tar.gz
-          upload_url: ${{ github.event.release.upload_url }}
-
-      - run: cabal upload --publish --username '${{ secrets.HACKAGE_USERNAME }}' --password '${{ secrets.HACKAGE_PASSWORD }}' artifact/ubuntu-20.04/brittany-${{ github.event.release.tag_name }}.tar.gz

.gitignore

@@ -8,8 +8,9 @@ dist/
 dist-newstyle/
 local/
 .cabal-sandbox/
+.stack-work/
 cabal.sandbox.config
-cabal.project.local*
+cabal.project.local
-cabal.project.freeze
 .ghc.environment.*
 result
+.stack-work*

.hlint.yaml

@@ -5,12 +5,20 @@
 # This file contains a template configuration file, which is typically
 # placed as .hlint.yaml in the root of your project
 
-- ignore: { name: 'Use :' }
+# Specify additional command line arguments
-- ignore: { name: Eta reduce }
+
-- ignore: { name: Move brackets to avoid $ }
+- arguments:
-- ignore: { name: Redundant $ }
+    [ "--cpp-include=srcinc"
-- ignore: { name: Redundant bracket }
+    , "--language=GADTs"
-- ignore: { name: Use newtype instead of data }
+    , "--language=LambdaCase"
+    , "--language=MultiWayIf"
+    , "--language=KindSignatures"
+    , "--cross"
+    , "--threads=0"
+    ]
+
+- ignore: {name: "Use camelCase"}
+- ignore: {name: "Redundant as"}
 - ignore: {name: "Redundant do"}
 - ignore: {name: "Redundant return"}
-- ignore: {name: "Use camelCase"}
+- ignore: {name: "Redundant guard", whithin: "lrdrNameToTextAnn"}

.travis.yml

@@ -0,0 +1,258 @@
+# Use new container infrastructure to enable caching
+sudo: false
+
+# Do not choose a language; we provide our own build tools.
+language: generic
+
+# Caching so the next build will be fast too.
+cache:
+  directories:
+  - $HOME/.cabsnap
+  - $HOME/.cabal/packages
+  - $HOME/.stack
+  - $HOME/.cabal/store
+  # alternatively:
+  #- $HOME/.stack/bin
+  #- $HOME/.stack/precompiled
+  #- $HOME/.stack/programs
+  #- $HOME/.stack/setup-exe-cache
+  #- $HOME/.stack/snapshots
+
+before_cache:
+  - rm -fv $HOME/.cabal/packages/hackage.haskell.org/build-reports.log
+  # remove files that are regenerated by 'cabal update'
+  - rm -fv $HOME/.cabal/packages/hackage.haskell.org/00-index.*
+  - rm -fv $HOME/.cabal/packages/hackage.haskell.org/*.json
+  - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.cache
+  - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.tar
+  - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.tar.idx
+
+# The different configurations we want to test. We have
+# - BUILD=cabal which uses cabal-install(<2.0)
+# - BUILD=canew which uses cabal-install 2.0 "new-build"
+# - BUILD=stack which uses Stack.
+#
+# We set the compiler values here to tell Travis to use a different
+# cache file per set of arguments.
+#
+# If you need to have different apt packages for each combination in the
+# matrix, you can use a line such as:
+#     addons: {apt: {packages: [libfcgi-dev,libgmp-dev]}}
+matrix:
+  include:
+  
+  ##### OSX test via stack #####
+
+  # Build on macOS in addition to Linux
+  - env: BUILD=stack ARGS="--stack-yaml stack-8.2.2.yaml"
+    compiler: ": #stack 8.2.2 osx"
+    os: osx
+
+  ##### CABAL #####
+  
+  - env: BUILD=cabal GHCVER=8.0.2 CABALVER=1.24 HAPPYVER=1.19.5 ALEXVER=3.1.7
+    compiler: ": #cabal 8.0.2"
+    addons: {apt: {packages: [cabal-install-1.24,ghc-8.0.2,happy-1.19.5,alex-3.1.7], sources: [hvr-ghc]}}
+  - env: BUILD=cabal GHCVER=8.2.2 CABALVER=1.24 HAPPYVER=1.19.5 ALEXVER=3.1.7
+    compiler: ": #cabal 8.2.2"
+    addons: {apt: {packages: [cabal-install-1.24,ghc-8.2.2,happy-1.19.5,alex-3.1.7], sources: [hvr-ghc]}}
+  - env: BUILD=cabal GHCVER=8.4.4 CABALVER=1.24 HAPPYVER=1.19.5 ALEXVER=3.1.7
+    compiler: ": #cabal 8.4.4"
+    addons: {apt: {packages: [cabal-install-1.24,ghc-8.4.4,happy-1.19.5,alex-3.1.7], sources: [hvr-ghc]}}
+  - env: BUILD=cabal GHCVER=8.6.5 CABALVER=1.24 HAPPYVER=1.19.5 ALEXVER=3.1.7
+    compiler: ": #cabal 8.6.5"
+    addons: {apt: {packages: [cabal-install-1.24,ghc-8.6.5,happy-1.19.5,alex-3.1.7], sources: [hvr-ghc]}}
+
+  # Build with the newest GHC and cabal-install. This is an accepted failure,
+  # see below.
+  #- env: BUILD=cabal GHCVER=head  CABALVER=head HAPPYVER=1.19.5 ALEXVER=3.1.7
+  #  compiler: ": #GHC HEAD"
+  #  addons: {apt: {packages: [cabal-install-head,ghc-head,happy-1.19.5,alex-3.1.7], sources: [hvr-ghc]}}
+
+  ##### CABAL DIST CHECK
+
+  - env: BUILD=cabaldist GHCVER=8.2.2 CABALVER=1.24 HAPPYVER=1.19.5 ALEXVER=3.1.7
+    compiler: ": #cabal 8.2.2 dist"
+    addons: {apt: {packages: [cabal-install-1.24,ghc-8.2.2,happy-1.19.5,alex-3.1.7], sources: [hvr-ghc]}}
+
+  ##### CANEW #####
+
+  - env: BUILD=canew GHCVER=8.2.2 CABALVER=2.0 HAPPYVER=1.19.5 ALEXVER=3.1.7
+    compiler: ": #cabal new 8.2.2"
+    addons: {apt: {packages: [cabal-install-2.0,ghc-8.2.2,happy-1.19.5,alex-3.1.7], sources: [hvr-ghc]}}
+  - env: BUILD=canew GHCVER=8.8.1 CABALVER=3.0 HAPPYVER=1.19.5 ALEXVER=3.1.7
+    compiler: ": #cabal new 8.8.1"
+    addons: {apt: {packages: [cabal-install-3.0,ghc-8.8.1,happy-1.19.5,alex-3.1.7], sources: [hvr-ghc]}}
+
+  ##### STACK #####
+
+  # The Stack builds. We can pass in arbitrary Stack arguments via the ARGS
+  # variable, such as using --stack-yaml to point to a different file.
+  - env: BUILD=stack ARGS=""
+    compiler: ": #stack default"
+    addons: {apt: {packages: [libgmp-dev]}}
+
+  - env: BUILD=stack ARGS="--stack-yaml stack-8.0.2.yaml"
+    compiler: ": #stack 8.0.2"
+    addons: {apt: {packages: [libgmp-dev]}}
+  - env: BUILD=stack ARGS="--stack-yaml stack-8.2.2.yaml"
+    compiler: ": #stack 8.2.2"
+    addons: {apt: {packages: [libgmp-dev]}}
+  - env: BUILD=stack ARGS="--stack-yaml stack-8.4.3.yaml"
+    compiler: ": #stack 8.4.3"
+    addons: {apt: {packages: [libgmp-dev]}}
+  - env: BUILD=stack ARGS="--stack-yaml stack-8.6.5.yaml"
+    compiler: ": #stack 8.6.5"
+    addons: {apt: {packages: [libgmp-dev]}}
+
+  # Nightly builds are allowed to fail
+  - env: BUILD=stack ARGS="--resolver nightly"
+    compiler: ": #stack nightly"
+    addons: {apt: {packages: [libgmp-dev]}}
+
+  allow_failures:
+  #- env: BUILD=cabal GHCVER=head  CABALVER=head HAPPYVER=1.19.5 ALEXVER=3.1.7
+  - env: BUILD=stack ARGS="--resolver nightly"
+  - env: BUILD=stack ARGS=""
+
+before_install:
+# Using compiler above sets CC to an invalid value, so unset it
+- unset CC
+
+# We want to always allow newer versions of packages when building on GHC HEAD
+- CABALARGS=""
+- if [ "x$GHCVER" = "xhead" ]; then CABALARGS=--allow-newer; fi
+
+# Download and unpack the stack executable
+- export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$HOME/.local/bin:/opt/alex/$ALEXVER/bin:/opt/happy/$HAPPYVER/bin:$HOME/.cabal/bin:$PATH
+- mkdir -p ~/.local/bin
+- |
+  if [ `uname` = "Darwin" ]
+  then
+    travis_retry curl --insecure -L https://www.stackage.org/stack/osx-x86_64 | tar xz --strip-components=1 --include '*/stack' -C ~/.local/bin
+  else
+    travis_retry curl -L https://www.stackage.org/stack/linux-x86_64 | tar xz --wildcards --strip-components=1 -C ~/.local/bin '*/stack'
+  fi
+
+  # Use the more reliable S3 mirror of Hackage
+  #mkdir -p $HOME/.cabal
+  #echo 'remote-repo: hackage.haskell.org:http://hackage.fpcomplete.com/' > $HOME/.cabal/config
+  #echo 'remote-repo-cache: $HOME/.cabal/packages' >> $HOME/.cabal/config
+
+  #if [ "$CABALVER" != "1.16" ]
+  #then
+  #  echo 'jobs: $ncpus' >> $HOME/.cabal/config
+  #fi
+- PKGNAME='brittany'
+- JOBS='1'
+- |
+  function better_wait() {
+    date
+    time "$@" & # send the long living command to background!
+
+    set +x
+    MINUTES=0
+    LIMIT=30
+    while kill -0 $! >/dev/null 2>&1; do
+      echo -n -e " \b" # never leave evidences!
+
+      if [ $MINUTES == $LIMIT ]; then
+        break;
+      fi
+
+      MINUTES=$((MINUTES+1))
+
+      sleep 60
+    done
+    wait $!
+    set -x
+  }
+
+install:
+- echo "$(ghc --version) [$(ghc --print-project-git-commit-id 2> /dev/null || echo '?')]"
+- if [ -f configure.ac ]; then autoreconf -i; fi
+- |
+  set -ex
+  case "$BUILD" in
+    stack)
+      stack -j$JOBS --no-terminal --install-ghc $ARGS test --bench --only-dependencies --flag brittany:brittany-test-perf
+      ;;
+    cabal*)
+      cabal --version
+      echo "$(ghc --version) [$(ghc --print-project-git-commit-id 2> /dev/null || echo '?')]"
+      if [ -f $HOME/.cabal/packages/hackage.haskell.org/00-index.tar.gz ];
+      then
+        zcat $HOME/.cabal/packages/hackage.haskell.org/00-index.tar.gz >$HOME/.cabal/packages/hackage.haskell.org/00-index.tar;
+      fi
+      travis_retry cabal update -v
+      sed -i 's/^jobs:/-- jobs:/' ${HOME}/.cabal/config
+      cabal install --only-dependencies --enable-tests --enable-benchmarks --dry -v > installplan.txt
+      sed -i -e '1,/^Resolving /d' installplan.txt; cat installplan.txt
+
+      # check whether current requested install-plan matches cached package-db snapshot
+      if diff -u $HOME/.cabsnap/installplan.txt installplan.txt;
+      then
+        echo "cabal build-cache HIT";
+        rm -rfv .ghc;
+        cp -a $HOME/.cabsnap/ghc $HOME/.ghc;
+        cp -a $HOME/.cabsnap/lib $HOME/.cabsnap/share $HOME/.cabsnap/bin $HOME/.cabal/;
+      else
+        echo "cabal build-cache MISS";
+        rm -rf $HOME/.cabsnap;
+        mkdir -p $HOME/.ghc $HOME/.cabal/lib $HOME/.cabal/share $HOME/.cabal/bin;
+        cabal install -j$JOBS --only-dependencies --enable-tests --enable-benchmarks --ghc-options="-j1 +RTS -M700M -RTS";
+      fi
+      
+      # snapshot package-db on cache miss
+      if [ ! -d $HOME/.cabsnap ];
+      then
+         echo "snapshotting package-db to build-cache";
+         mkdir $HOME/.cabsnap;
+         cp -a $HOME/.ghc $HOME/.cabsnap/ghc;
+         cp -a $HOME/.cabal/lib $HOME/.cabal/share $HOME/.cabal/bin installplan.txt $HOME/.cabsnap/;
+      fi
+      ;;
+    canew)
+      cabal --version
+      travis_retry cabal update -v
+      echo 'packages: .' > cabal.project
+      echo 'package brittany'                                               > cabal.project.local
+      echo '  ghc-options: -Werror -with-rtsopts=-N1 -j1 +RTS -M700M -RTS' >> cabal.project.local
+      echo '  flags: +brittany-test-perf'                                  >> cabal.project.local
+      rm -f cabal.project.freeze
+      cabal new-build -j$JOBS --enable-test --enable-benchmarks --dep
+      cabal new-build -j$JOBS --disable-tests --disable-benchmarks --dep
+      ;;
+  esac
+  set +ex
+
+script:
+- |
+  set -ex
+  case "$BUILD" in
+    stack)
+      better_wait stack -j$JOBS --no-terminal $ARGS test --bench --no-run-benchmarks --haddock --no-haddock-deps --ghc-options="-j1 +RTS -M700M -RTS -Werror -with-rtsopts=-N1" --flag brittany:brittany-test-perf
+      ;;
+    cabal)
+      if [ -f configure.ac ]; then autoreconf -i; fi
+      cabal configure --enable-tests --enable-benchmarks -v --flags="brittany-test-perf" # -v2 provides useful information for debugging
+      better_wait cabal build -j$JOBS --ghc-options="-j1 +RTS -M700M -RTS -Werror" # this builds all libraries and executables (including tests/benchmarks)
+      time cabal test --ghc-options="-with-rtsopts=-N1"
+      ;;
+    cabaldist)
+      # cabal check
+      cabal sdist   # tests that a source-distribution can be generated
+
+      # Check that the resulting source distribution can be built & installed.
+      # If there are no other `.tar.gz` files in `dist`, this can be even simpler:
+      # `cabal install --force-reinstalls dist/*-*.tar.gz`
+      SRC_TGZ=$(cabal info . | awk '{print $2;exit}').tar.gz &&
+      (cd dist && better_wait cabal install -j$JOBS --force-reinstalls "$SRC_TGZ" --ghc-options="-j1 +RTS -M700M -RTS")
+      ;;
+    canew)
+      better_wait cabal new-build -j$JOBS --disable-tests --disable-benchmarks
+      better_wait cabal new-build -j$JOBS --enable-tests --enable-benchmarks
+      time cabal new-test -j1
+      ;;
+  esac
+  set +ex

.vscode/extensions.json

@@ -1,5 +0,0 @@
-{
-    "recommendations": [
-        "taylorfausak.purple-yolk"
-    ]
-}

.vscode/settings.json

@@ -1,6 +0,0 @@
-{
-    "purple-yolk.brittany.command": "cabal exec -- brittany --write-mode inplace",
-    "purple-yolk.ghci.command": "cabal repl --repl-options -ddump-json",
-    "purple-yolk.hlint.command": "false",
-    "purple-yolk.hlint.onSave": false
-}

ChangeLog.md

@@ -1,47 +1,5 @@
 # Revision history for brittany
 
-## 0.14.0.0 -- November 2021
-
-* #357: Added support for GHC 9.0. Dropped support for all other versions of GHC.
-  * ab59e9acc3069551ac4132321b285d000f5f5691: Removed runtime dependency on `ghc-paths`.
-  * fa8365a7fa9372043d5a1018f2f7669ce3853edd: Started providing pre-built binaries for Linux, MacOS, and Windows.
-  * Many other changes to Brittany's internals and exposed Haskell interface, but (hopefully) no changes to its command-line interface.
-
-## 0.13.1.2 -- May 2021
-
-* #347: Allowed hspec 2.8. Thanks @felixonmars!
-
-## 0.13.1.1 -- February 2021
-
-* #333: Allowed random 1.2. Thanks @felixonmars!
-* #334: Updated Arch install instructions. Thanks @ahstro!
-* #343: Allowed ghc-exactprint 0.6.4. Thanks @maralorn!
-
-## 0.13.1.0 -- December 2020
-
-* #330: Started sorting imports. Thanks @expipiplus1!
-
-## 0.13.0.0 -- December 2020
-
-* #324: Added support for GHC 8.10.
-  * Dropped support for GHC 8.4, 8.2, and 8.0.
-  * Thanks @jneira, @bubba, @infinity0, and @expipiplus1!
-
-## 0.12.2.0 -- November 2020
-
-* #207: Fix newtype indent in associated type family.
-* #231: Improve comments-affecting-layout behaviour for tuples.
-* #259: Data declaration for newtype and records. Thanks @eborden!
-* #263: Fix non-idempotent newlines with comment + where.
-* #273: Error handling.
-* #281: Fix moving comment in export list (haddock header).
-* #286: Fix comments in instance/type instances.
-* #287: Add support for pattern synonyms. Thanks @RaoulHC!
-* #293: Expose main function as a module. Thanks @soareschen!
-* #303: Readme: Supports 8.8. Thanks @andys8!
-* #311: Allows aeson-1.5.*. Thanks @jkachmar!
-* #313: Nondecreasing export list formatting. Thanks @expipiplus1!
-
 ## 0.12.1.1 -- December 2019
 
 * Bugfixes:
@@ -132,11 +90,11 @@
 
     multiline-comments are supported too, although
     the specification must still be a single line. E.g.
-
+    
     > "{- brittany --columns 50 -}"
-
+    
     CONFIG is either:
-
+    
     1) one or more flags in the form of what brittany accepts
        on the commandline, e.g. "--columns 50", or
     2) one or more specifications in the form of what brittany

Makefile

@@ -0,0 +1,28 @@
+.PHONY: test
+test:
+	echo "test"
+	stack test
+
+.PHONY: test-all
+test-all:
+	$(MAKE) test test-8.6.5 test-8.4.3 test-8.2.2 test-8.0.2
+
+.PHONY: test-8.6.5
+test-8.6.5:
+	echo "test 8.6.5"
+	stack test --stack-yaml stack-8.6.5.yaml --work-dir .stack-work-8.6.5
+
+.PHONY: test-8.4.3
+test-8.4.3:
+	echo "test 8.4.3"
+	stack test --stack-yaml stack-8.4.3.yaml --work-dir .stack-work-8.4.3
+
+.PHONY: test-8.2.2
+test-8.2.2:
+	echo "test 8.2.2"
+	stack test --stack-yaml stack-8.2.2.yaml --work-dir .stack-work-8.2.2
+
+.PHONY: test-8.0.2
+test-8.0.2:
+	echo "test 8.0.2"
+	stack test --stack-yaml stack-8.0.2.yaml --work-dir .stack-work-8.0.2

README.md

@@ -1,11 +1,4 @@
-# brittany [![Hackage version](https://img.shields.io/hackage/v/brittany.svg?label=Hackage)](https://hackage.haskell.org/package/brittany) [![Stackage version](https://www.stackage.org/package/brittany/badge/lts?label=Stackage)](https://www.stackage.org/package/brittany) [![Build Status](https://secure.travis-ci.org/lspitzner/brittany.svg?branch=master)](http://travis-ci.org/lspitzner/brittany)
+# brittany [![Hackage version](https://img.shields.io/hackage/v/brittany.svg?label=Hackage)](https://hackage.haskell.org/package/brittany) [![Stackage version](https://www.stackage.org/package/brittany/badge/lts?label=Stackage)](https://www.stackage.org/package/brittany) [![Build Status](https://secure.travis-ci.org/lspitzner/brittany.svg?branch=master)](http://travis-ci.org/lspitzner/brittany) 
-
-:warning:
-This project is effectively unmaintained!
-I ([@tfausak](https://github.com/tfausak)) would recommend switching to another formatter.
-At time of writing (2022-11-11), I would suggest [Ormolu](https://github.com/tweag/ormolu).
-Or if you prefer some configuration, I would suggest [Fourmolu](https://github.com/fourmolu/fourmolu).
-
 haskell source code formatter
 
 ![Output sample](https://github.com/lspitzner/brittany/raw/master/brittany-sample.gif)
@@ -38,7 +31,7 @@ require fixing:
   other module elements (data-decls, classes, instances, etc.)
   are not transformed in any way; this extends to e.g. **bindings inside class
   instance definitions** - they **won't be touched** (yet).
-- By using `ghc-exactprint` as the parser, brittany supports full GHC
+- By using `ghc-exactprint` as the parser, brittany supports full GHC 
   including extensions, but **some of the less common syntactic elements
   (even of 2010 haskell) are not handled**.
 - **There are some known issues regarding handling of in-source comments.**
@@ -55,7 +48,7 @@ log the size of the input, but _not_ the full input/output of requests.)
 
 # Other usage notes
 
-- Supports GHC version `9.0.x`.
+- Supports GHC versions `8.0`, `8.2`, `8.4`, `8.6`.
 - included in stackage with lts>=10.0 (or nightlies dating to >=2017-11-15)
 - config (file) documentation is lacking.
 - some config values can not be configured via commandline yet.
@@ -68,11 +61,18 @@ log the size of the input, but _not_ the full input/output of requests.)
 - via `stack`
 
     ~~~~.sh
-    stack install brittany # --resolver lts-16.31
+    stack install brittany # --resolver lts-10.0
     ~~~~
 
     If you use an lts that includes brittany this should just work; otherwise
-    you may want to clone the repo and try again.
+    you may want to clone the repo and try again (there are several stack.yamls
+    included).
+
+- via `nix`:
+    ~~~.sh
+    nix build -f release.nix     # or 'nix-build -f release.nix'
+    nix-env -i ./result
+    ~~~
 
 - via `cabal`
 
@@ -96,13 +96,12 @@ log the size of the input, but _not_ the full input/output of requests.)
     (TODO: These instructions are more confusing than helpful. I am inclined
     to just remove them.)
 
-- on ArchLinux:
+- on ArchLinux via [the brittany AUR package](https://aur.archlinux.org/packages/brittany/)
+  using `aura`:
     ~~~~.sh
-    pacman -S haskell-brittany
+    aura -A brittany
     ~~~~
 
-# Development tips
-
 # Editor Integration
 
 #### Sublime text
@@ -111,8 +110,8 @@ log the size of the input, but _not_ the full input/output of requests.)
 #### VSCode
   [This extension](https://marketplace.visualstudio.com/items?itemName=MaxGabriel.brittany)
   connects commandline `brittany` to VSCode formatting API. Thanks to @MaxGabriel.
-#### Via HLS
+#### Via HIE
-  [haskell-language-server](https://github.com/haskell/haskell-language-server)
+  [haskell-ide-engine](https://github.com/haskell/haskell-ide-engine)
   includes a `brittany` plugin that directly uses the brittany library.
   Relevant for any editors that properly support the language-server-protocol.
 #### Neovim / Vim 8
@@ -128,13 +127,13 @@ log the size of the input, but _not_ the full input/output of requests.)
 - Default mode of operation: Transform a single module, from `stdin` to `stdout`.
   Can pass one or multiple files as input, and there is a flag to override them
   in place instead of using `stdout` (since 0.9.0.0). So:
-
+  
     ~~~~ .sh
     brittany                           # stdin -> stdout
     brittany mysource.hs               # ./mysource.hs -> stdout
     brittany --write-mode=inplace *.hs # apply formatting to all ./*.hs inplace
     ~~~~
-
+    
 - For stdin/stdout usage it makes sense to enable certain syntactic extensions
   by default, i.e. to add something like this to your
   `~/.config/brittany/config.yaml` (execute `brittany` once to create default):

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

brittany.cabal

@@ -1,15 +1,14 @@
-cabal-version: 2.2
-
 name:                 brittany
-version:              0.14.0.2
+version:              0.12.1.1
 synopsis:             Haskell source code formatter
-description:
+description: {
   See <https://github.com/lspitzner/brittany/blob/master/README.md the README>.
   .
   If you are interested in the implementation, have a look at <https://github.com/lspitzner/brittany/blob/master/doc/implementation/theory.md this document>;
   .
   The implementation is documented in more detail <https://github.com/lspitzner/brittany/blob/master/doc/implementation/index.md here>.
-license:              AGPL-3.0-only
+}
+license:              AGPL-3
 license-file:         LICENSE
 author:               Lennart Spitzner
 maintainer:           Lennart Spitzner <hexagoxel@hexagoxel.de>
@@ -17,133 +16,377 @@ copyright:            Copyright (C) 2016-2019 Lennart Spitzner
                       Copyright (C) 2019 PRODA LTD
 category:             Language
 build-type:           Simple
+cabal-version:        1.18
 homepage:             https://github.com/lspitzner/brittany/
 bug-reports:          https://github.com/lspitzner/brittany/issues
-extra-doc-files:
+extra-doc-files: {
   ChangeLog.md
   README.md
   doc/implementation/*.md
-extra-source-files:
+}
-  data/brittany.yaml
+extra-source-files: {
-  data/*.hs
+  src-literatetests/*.blt
+  srcinc/prelude.inc
+}
 
-source-repository head
+source-repository head {
   type: git
   location: https://github.com/lspitzner/brittany.git
+}
 
-flag pedantic
+flag brittany-dev-lib
+  description: set buildable false for anything but lib
   default: False
-  description: Enables @-Werror@, which turns warnings into errors.
   manual: True
 
-common library
+flag brittany-test-perf
-  build-depends:
+  description: determines if performance test suite is enabled
-    , aeson ^>= 2.0.1
+  default: False
-    , base ^>= 4.15.0
+  manual: True
-    , butcher ^>= 1.3.3
-    , bytestring ^>= 0.10.12
-    , cmdargs ^>= 0.10.21
-    , containers ^>= 0.6.4
-    , czipwith ^>= 1.0.1
-    , data-tree-print ^>= 0.1.0
-    , deepseq ^>= 1.4.5
-    , directory ^>= 1.3.6
-    , extra ^>= 1.7.10
-    , filepath ^>= 1.4.2
-    , ghc ^>= 9.0.1
-    , ghc-boot ^>= 9.0.1
-    , ghc-boot-th ^>= 9.0.1
-    , ghc-exactprint ^>= 0.6.4
-    , monad-memo ^>= 0.5.3
-    , mtl ^>= 2.2.2
-    , multistate ^>= 0.8.0
-    , pretty ^>= 1.1.3
-    , random ^>= 1.2.1
-    , safe ^>= 0.3.19
-    , semigroups ^>= 0.19.2
-    , strict ^>= 0.4.0
-    , syb ^>= 0.7.2
-    , text ^>= 1.2.5
-    , transformers ^>= 0.5.6
-    , uniplate ^>= 1.6.13
-    , yaml ^>= 0.11.7
-  default-language: Haskell2010
-  ghc-options:
-    -Weverything
-    -Wno-all-missed-specialisations
-    -Wno-incomplete-uni-patterns
-    -Wno-missing-deriving-strategies
-    -Wno-missing-export-lists
-    -Wno-missing-import-lists
-    -Wno-missing-local-signatures
-    -Wno-missing-safe-haskell-mode
-    -Wno-monomorphism-restriction
-    -Wno-prepositive-qualified-module
-    -Wno-safe
-    -Wno-unsafe
 
-  if flag(pedantic)
+library {
-    ghc-options: -Werror
+  default-language:
-
+    Haskell2010
-common executable
+  hs-source-dirs:
-  import: library
+    src
-
+  include-dirs:
-  build-depends: brittany
+    srcinc
-  ghc-options:
+  exposed-modules: {
-    -rtsopts
-    -threaded
-    -Wno-implicit-prelude
-    -Wno-unused-packages
-
-library
-  import: library
-
-  autogen-modules: Paths_brittany
-  hs-source-dirs: source/library
-  exposed-modules:
     Language.Haskell.Brittany
     Language.Haskell.Brittany.Internal
-    Language.Haskell.Brittany.Internal.Backend
+    Language.Haskell.Brittany.Internal.Prelude
-    Language.Haskell.Brittany.Internal.BackendUtils
+    Language.Haskell.Brittany.Internal.PreludeUtils
+    Language.Haskell.Brittany.Internal.Types
+    Language.Haskell.Brittany.Internal.Utils
     Language.Haskell.Brittany.Internal.Config
     Language.Haskell.Brittany.Internal.Config.Types
     Language.Haskell.Brittany.Internal.Config.Types.Instances
-    Language.Haskell.Brittany.Internal.ExactPrintUtils
+    Language.Haskell.Brittany.Internal.Obfuscation
+    Paths_brittany
+  }
+  other-modules: {
     Language.Haskell.Brittany.Internal.LayouterBasics
-    Language.Haskell.Brittany.Internal.Layouters.DataDecl
+    Language.Haskell.Brittany.Internal.Backend
+    Language.Haskell.Brittany.Internal.BackendUtils
+    Language.Haskell.Brittany.Internal.ExactPrintUtils
+    Language.Haskell.Brittany.Internal.Layouters.Type
     Language.Haskell.Brittany.Internal.Layouters.Decl
     Language.Haskell.Brittany.Internal.Layouters.Expr
+    Language.Haskell.Brittany.Internal.Layouters.Stmt
+    Language.Haskell.Brittany.Internal.Layouters.Pattern
     Language.Haskell.Brittany.Internal.Layouters.IE
     Language.Haskell.Brittany.Internal.Layouters.Import
     Language.Haskell.Brittany.Internal.Layouters.Module
-    Language.Haskell.Brittany.Internal.Layouters.Pattern
+    Language.Haskell.Brittany.Internal.Layouters.DataDecl
-    Language.Haskell.Brittany.Internal.Layouters.Stmt
-    Language.Haskell.Brittany.Internal.Layouters.Type
-    Language.Haskell.Brittany.Internal.Obfuscation
-    Language.Haskell.Brittany.Internal.ParseModule
-    Language.Haskell.Brittany.Internal.Prelude
-    Language.Haskell.Brittany.Internal.PreludeUtils
     Language.Haskell.Brittany.Internal.Transformations.Alt
-    Language.Haskell.Brittany.Internal.Transformations.Columns
     Language.Haskell.Brittany.Internal.Transformations.Floating
-    Language.Haskell.Brittany.Internal.Transformations.Indent
     Language.Haskell.Brittany.Internal.Transformations.Par
-    Language.Haskell.Brittany.Internal.Types
+    Language.Haskell.Brittany.Internal.Transformations.Columns
-    Language.Haskell.Brittany.Internal.Utils
+    Language.Haskell.Brittany.Internal.Transformations.Indent
-    Language.Haskell.Brittany.Main
+  }
-    Paths_brittany
+  ghc-options: {
+    -Wall
+    -fno-warn-unused-imports
+    -fno-warn-redundant-constraints
+  }
+  build-depends:
+    { base >=4.9 && <4.14
+    , ghc >=8.0.1 && <8.9
+    , ghc-paths >=0.1.0.9 && <0.2
+    , ghc-exactprint >=0.5.8 && <0.6.3
+    , transformers >=0.5.2.0 && <0.6
+    , containers >=0.5.7.1 && <0.7
+    , mtl >=2.2.1 && <2.3
+    , text >=1.2 && <1.3
+    , multistate >=0.7.1.1 && <0.9
+    , syb >=0.6 && <0.8
+    , neat-interpolation >=0.3.2 && <0.4
+    , data-tree-print
+    , pretty >=1.1.3.3 && <1.2
+    , bytestring >=0.10.8.1 && <0.11
+    , directory >=1.2.6.2 && <1.4
+    , butcher >=1.3.1 && <1.4
+    , yaml >=0.8.18 && <0.12
+    , aeson >=1.0.1.0 && <1.5
+    , extra >=1.4.10 && <1.7
+    , uniplate >=1.6.12 && <1.7
+    , strict >=0.3.2 && <0.4
+    , monad-memo >=0.4.1 && <0.6
+    , unsafe >=0.0 && <0.1
+    , safe >=0.3.9 && <0.4
+    , deepseq >=1.4.2.0 && <1.5
+    , semigroups >=0.18.2 && <0.20
+    , cmdargs >=0.10.14 && <0.11
+    , czipwith >=1.0.1.0 && <1.1
+    , ghc-boot-th >=8.0.1 && <8.9
+    , filepath >=1.4.1.0 && <1.5
+    , random >= 1.1 && <1.2
+    }
+  default-extensions: {
+    CPP
+
+    NoImplicitPrelude
+
+    GADTs
+
+    FlexibleContexts
+    FlexibleInstances
+    ScopedTypeVariables
+    MonadComprehensions
+    LambdaCase
+    MultiWayIf
+    KindSignatures
+  }
+}
 
 executable brittany
-  import: executable
+  if flag(brittany-dev-lib) {
-
+    buildable: False
-  hs-source-dirs: source/executable
+  } else {
-  main-is: Main.hs
+    buildable: True
-
+  }
-test-suite brittany-test-suite
+  main-is:             Main.hs
-  import: executable
+  other-modules: {
-
+    Paths_brittany
+  }
+  -- other-extensions:
   build-depends:
-    , hspec ^>= 2.8.3
+    { brittany
-  hs-source-dirs: source/test-suite
+    , base
-  main-is: Main.hs
+    , ghc
-  type: exitcode-stdio-1.0
+    , ghc-paths
+    , ghc-exactprint
+    , transformers
+    , containers
+    , mtl
+    , text
+    , multistate
+    , syb
+    , neat-interpolation
+    , data-tree-print
+    , pretty
+    , bytestring
+    , directory
+    , butcher
+    , yaml
+    , aeson
+    , extra
+    , uniplate
+    , strict
+    , monad-memo
+    , unsafe
+    , safe
+    , deepseq
+    , semigroups
+    , cmdargs
+    , czipwith
+    , ghc-boot-th
+    , filepath >=1.4.1.0 && <1.5
+    }
+  hs-source-dirs:      src-brittany
+  include-dirs:        srcinc
+  default-language:    Haskell2010
+  default-extensions: {
+    CPP
+
+    NoImplicitPrelude
+
+    GADTs
+
+    FlexibleContexts
+    FlexibleInstances
+    ScopedTypeVariables
+    MonadComprehensions
+    LambdaCase
+    MultiWayIf
+    KindSignatures
+  }
+  ghc-options: {
+    -Wall
+    -fno-spec-constr
+    -fno-warn-unused-imports
+    -fno-warn-redundant-constraints
+    -rtsopts
+    -with-rtsopts "-M2G"
+  }
+
+test-suite unittests
+  if flag(brittany-dev-lib) || !flag(brittany-test-perf) {
+    buildable: False
+  } else {
+    buildable: True
+  }
+  type:             exitcode-stdio-1.0
+  default-language: Haskell2010
+  build-depends:
+    { brittany
+    , base
+    , ghc
+    , ghc-paths
+    , ghc-exactprint
+    , transformers
+    , containers
+    , mtl
+    , text
+    , multistate
+    , syb
+    , neat-interpolation
+    , data-tree-print
+    , pretty
+    , bytestring
+    , directory
+    , butcher
+    , yaml
+    , aeson
+    , extra
+    , uniplate
+    , strict
+    , monad-memo
+    , unsafe
+    , safe
+    , deepseq
+    , semigroups
+    , cmdargs
+    , czipwith
+    , ghc-boot-th
+    , hspec >=2.4.1 && <2.8
+    }
+  main-is:          TestMain.hs
+  other-modules:    TestUtils
+                    AsymptoticPerfTests
+  hs-source-dirs:   src-unittests
+  include-dirs:     srcinc
+  default-extensions: {
+    CPP
+
+    NoImplicitPrelude
+
+    GADTs
+
+    FlexibleContexts
+    FlexibleInstances
+    ScopedTypeVariables
+    MonadComprehensions
+    LambdaCase
+    MultiWayIf
+    KindSignatures
+  }
+  ghc-options: {
+    -Wall
+    -fno-warn-unused-imports
+    -rtsopts
+    -with-rtsopts "-M2G"
+    -threaded
+    -- ^ threaded is not necessary at all, but our CI trusts on being able
+    --   to pass -N1, which is not possible without threaded :-/
+    --   (plus -no-threaded is not a thing, afaict)
+  }
+
+test-suite littests
+  if flag(brittany-dev-lib) {
+    buildable: False
+  } else {
+    buildable: True
+  }
+  type:             exitcode-stdio-1.0
+  default-language: Haskell2010
+  build-depends:
+    { brittany
+    , base
+    , ghc
+    , ghc-paths
+    , ghc-exactprint
+    , transformers
+    , containers
+    , mtl
+    , text
+    , multistate
+    , syb
+    , neat-interpolation
+    , data-tree-print
+    , pretty
+    , bytestring
+    , directory
+    , butcher
+    , yaml
+    , aeson
+    , extra
+    , uniplate
+    , strict
+    , monad-memo
+    , unsafe
+    , safe
+    , deepseq
+    , semigroups
+    , cmdargs
+    , czipwith
+    , ghc-boot-th
+    , hspec >=2.4.1 && <2.8
+    , filepath
+    , parsec >=3.1.11 && <3.2
+    }
+  main-is:          Main.hs
+  other-modules:
+  hs-source-dirs:   src-literatetests
+  include-dirs:     srcinc
+  default-extensions: {
+    CPP
+
+    NoImplicitPrelude
+
+    GADTs
+
+    FlexibleContexts
+    FlexibleInstances
+    ScopedTypeVariables
+    MonadComprehensions
+    LambdaCase
+    MultiWayIf
+    KindSignatures
+  }
+  ghc-options: {
+    -Wall
+    -fno-warn-unused-imports
+    -threaded
+    -rtsopts
+    -with-rtsopts "-M2G -N"
+  }
+
+test-suite libinterfacetests
+  if flag(brittany-dev-lib) {
+    buildable: False
+  } else {
+    buildable: True
+  }
+  type:             exitcode-stdio-1.0
+  default-language: Haskell2010
+  build-depends:
+    { brittany
+    , base
+    , text
+    , transformers
+    , hspec >=2.4.1 && <2.8
+    }
+  main-is:          Main.hs
+  other-modules:
+  hs-source-dirs:   src-libinterfacetests
+  include-dirs:     srcinc
+  default-extensions: {
+    FlexibleContexts
+    FlexibleInstances
+    ScopedTypeVariables
+    MonadComprehensions
+    LambdaCase
+    MultiWayIf
+    KindSignatures
+  }
+  ghc-options: {
+    -Wall
+    -fno-warn-unused-imports
+    -rtsopts
+    -with-rtsopts "-M2G"
+    -threaded
+    -- ^ threaded is not necessary at all, but our CI trusts on being able
+    --   to pass -N1, which is not possible without threaded :-/
+    --   (plus -no-threaded is not a thing, afaict)
+  }

brittany.yaml

@@ -1,4 +0,0 @@
-conf_layout:
-  lconfig_columnAlignMode:
-    tag: ColumnAlignModeDisabled
-  lconfig_indentPolicy: IndentPolicyLeft

cabal.project

@@ -1,9 +0,0 @@
-packages: .
-
-allow-newer:
-    -- https://github.com/lspitzner/butcher/issues/7
-    , butcher:base
-    -- https://github.com/lspitzner/data-tree-print/pull/2
-    , data-tree-print:base
-    -- https://github.com/lspitzner/multistate/pull/8
-    , multistate:base

data/Test1.hs

@@ -1 +0,0 @@
-func :: a -> a

data/Test10.hs

@@ -1,3 +0,0 @@
-func
-  :: lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-  -> (lakjsdlkjasldkj -> lakjsdlkjasldkj)

data/Test100.hs

@@ -1 +0,0 @@
-func = klajsdas klajsdas klajsdas

data/Test101.hs

@@ -1,3 +0,0 @@
-func = lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-  lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-  lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd

data/Test102.hs

@@ -1,3 +0,0 @@
-func = lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd lakjsdlajsdljas
-                                                     lakjsdlajsdljas
-                                                     lakjsdlajsdljas

data/Test103.hs

@@ -1 +0,0 @@
-func = (1 +)

data/Test104.hs

@@ -1 +0,0 @@
-func = (+ 1)

data/Test105.hs

@@ -1 +0,0 @@
-func = (1 `abc`)

data/Test106.hs

@@ -1 +0,0 @@
-func = (`abc` 1)

data/Test107.hs

@@ -1 +0,0 @@
-func = (abc, def)

data/Test108.hs

@@ -1 +0,0 @@
-func = (abc, )

data/Test109.hs

@@ -1 +0,0 @@
-func = (, abc)

data/Test11.hs

@@ -1,3 +0,0 @@
-func
-  :: (lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd -> lakjsdlkjasldkj)
-  -> lakjsdlkjasldkj

data/Test110.hs

@@ -1,6 +0,0 @@
-myTupleSection =
-  ( verylaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaargefirstelement
-  ,
-  , verylaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaargethirdelement
-  ,
-  )

data/Test111.hs

@@ -1,4 +0,0 @@
-func =
-  ( lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-  , lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-  )

data/Test112.hs

@@ -1,6 +0,0 @@
-foo = if True
-  then
-      -- iiiiii
-    "a                                                                         "
-  else
-    "b                                                                         "

data/Test113.hs

@@ -1,5 +0,0 @@
-func = if cond
-  then pure 42
-  else do
-    -- test
-    abc

data/Test114.hs

@@ -1,3 +0,0 @@
-func = case x of
-  False -> False
-  True  -> True

data/Test115.hs

@@ -1,7 +0,0 @@
-func =
-  case
-      lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-        lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-    of
-      False -> False
-      True  -> True

data/Test116.hs

@@ -1,7 +0,0 @@
-func = do
-  case
-      lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-        lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-    of
-      False -> False
-      True  -> True

data/Test117.hs

@@ -1 +0,0 @@
-func = case x of {}

data/Test118.hs

@@ -1,5 +0,0 @@
-func =
-  case
-      lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-        lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-    of {}

data/Test119.hs

@@ -1,5 +0,0 @@
-func = do
-  case
-      lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-        lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-    of {}

data/Test12.hs

@@ -1,5 +0,0 @@
-func
-  :: (  lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-     -> lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-     )
-  -> lakjsdlkjasldkj

data/Test120.hs

@@ -1,3 +0,0 @@
-func = do
-  stmt
-  stmt

data/Test121.hs

@@ -1,3 +0,0 @@
-func = do
-  x <- stmt
-  stmt x

data/Test122.hs

@@ -1,3 +0,0 @@
-func = do
-  let x = 13
-  stmt x

data/Test123.hs

@@ -1,7 +0,0 @@
-func =
-  foooooo
-    $ [ case
-          foooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
-        of
-          _ -> True
-      ]

data/Test124.hs

@@ -1,4 +0,0 @@
-testMethod foo bar baz qux =
-  let x = undefined foo bar baz qux qux baz bar :: String
-  -- some comment explaining the in expression
-  in  undefined foo x :: String

data/Test125.hs

@@ -1,4 +0,0 @@
-testMethod foo bar baz qux =
-  let x = undefined :: String
-  -- some comment explaining the in expression
-  in  undefined :: String

data/Test126.hs

@@ -1,3 +0,0 @@
-testMethod foo bar baz qux =
-  -- some comment explaining the in expression
-  let x = undefined :: String in undefined :: String

data/Test127.hs

@@ -1,6 +0,0 @@
-foo foo bar baz qux =
-  let a = 1
-      b = 2
-      c = 3
-  -- some comment explaining the in expression
-  in  undefined :: String

data/Test128.hs

@@ -1,6 +0,0 @@
-func =
-  foo
-    $  [ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
-       , bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
-       ]
-    ++ [ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc]

data/Test129.hs

@@ -1 +0,0 @@
-module Main where

data/Test13.hs

@@ -1,5 +0,0 @@
-func
-  :: ( (  lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-       -> lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-       )
-     )

data/Test130.hs

@@ -1 +0,0 @@
-module Main () where

data/Test131.hs

@@ -1 +0,0 @@
-module Main (main) where

data/Test132.hs

@@ -1 +0,0 @@
-module Main (main, test1, test2) where

data/Test133.hs

@@ -1,12 +0,0 @@
-module Main
-  ( main
-  , test1
-  , test2
-  , test3
-  , test4
-  , test5
-  , test6
-  , test7
-  , test8
-  , test9
-  ) where

data/Test134.hs

@@ -1,12 +0,0 @@
-module Main
-  ( main
-  -- main
-  , test1
-  , test2
-  -- Test 3
-  , test3
-  , test4
-  -- Test 5
-  , test5
-  -- Test 6
-  ) where

data/Test135.hs

@@ -1 +0,0 @@
-module Main (Test(..)) where

data/Test136.hs

@@ -1 +0,0 @@
-module Main (module Main) where

data/Test137.hs

@@ -1 +0,0 @@
-module Main (Test(Test, a, b)) where

data/Test138.hs

@@ -1,6 +0,0 @@
--- comment1
-module Main
-  ( Test(Test, a, b)
-  , foo -- comment2
-  ) -- comment3
-    where

data/Test139.hs

@@ -1 +0,0 @@
-module Main (Test()) where

data/Test14.hs

@@ -1 +0,0 @@
-func :: asd -> Either a b

data/Test140.hs

@@ -1 +0,0 @@
--- Intentionally left empty

data/Test141.hs

@@ -1 +0,0 @@
-import           Data.List

data/Test142.hs

@@ -1 +0,0 @@
-import           Data.List                               as L

data/Test143.hs

@@ -1 +0,0 @@
-import qualified Data.List

data/Test144.hs

@@ -1 +0,0 @@
-import qualified Data.List                               as L

data/Test145.hs

@@ -1 +0,0 @@
-import safe      Data.List                               as L

data/Test146.hs

@@ -1 +0,0 @@
-import {-# SOURCE #-} Data.List                           ( )

data/Test147.hs

@@ -1 +0,0 @@
-import safe qualified Data.List

data/Test148.hs

@@ -1 +0,0 @@
-import {-# SOURCE #-} safe qualified Data.List

data/Test149.hs

@@ -1 +0,0 @@
-import qualified "base" Data.List

data/Test15.hs

@@ -1,5 +0,0 @@
-func
-  :: asd
-  -> Either
-       lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-       lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd

data/Test150.hs

@@ -1,3 +0,0 @@
-import {-# SOURCE #-} safe qualified "base" Data.List    as L
-import {-# SOURCE #-} safe qualified "base" Data.List     ( )
-import {-# SOURCE #-} safe qualified Data.List     hiding ( )

data/Test151.hs

@@ -1 +0,0 @@
-import qualified Data.List                                ( )

data/Test152.hs

@@ -1 +0,0 @@
-import           Data.List                                ( nub )

data/Test153.hs

@@ -1,4 +0,0 @@
-import           Data.List                                ( foldl'
-                                                          , indexElem
-                                                          , nub
-                                                          )

data/Test154.hs

@@ -1,14 +0,0 @@
-import           Test                                     ( Long
-                                                          , anymore
-                                                          , fit
-                                                          , items
-                                                          , line
-                                                          , list
-                                                          , not
-                                                          , onA
-                                                          , quite
-                                                          , single
-                                                          , that
-                                                          , will
-                                                          , with
-                                                          )

data/Test155.hs

@@ -1,11 +0,0 @@
-import           Test                                     ( (+)
-                                                          , (:!)(..)
-                                                          , (:*)((:.), T7, t7)
-                                                          , (:.)
-                                                          , T
-                                                          , T2()
-                                                          , T3(..)
-                                                          , T4(T4)
-                                                          , T5(T5, t5)
-                                                          , T6((<|>))
-                                                          )

data/Test156.hs

@@ -1,3 +0,0 @@
-import           Test                              hiding ( )
-import           Test                                    as T
-                                                   hiding ( )

data/Test157.hs

@@ -1,13 +0,0 @@
-import           Prelude                                 as X
-                                                   hiding ( head
-                                                          , init
-                                                          , last
-                                                          , maximum
-                                                          , minimum
-                                                          , pred
-                                                          , read
-                                                          , readFile
-                                                          , succ
-                                                          , tail
-                                                          , undefined
-                                                          )

data/Test158.hs

@@ -1,3 +0,0 @@
-import           TestJustAbitToLongModuleNameLikeThisOneIs
-                                                          ( )
-import           TestJustShortEnoughModuleNameLikeThisOne ( )

data/Test159.hs

@@ -1,3 +0,0 @@
-import           TestJustAbitToLongModuleNameLikeThisOneI
-                                                         as T
-import           TestJustShortEnoughModuleNameLikeThisOn as T

data/Test16.hs

@@ -1,6 +0,0 @@
-func
-  :: asd
-  -> Trither
-       lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-       lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-       lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd

data/Test160.hs

@@ -1,3 +0,0 @@
-import           TestJustAbitToLongModuleNameLikeTh
-                                                   hiding ( )
-import           TestJustShortEnoughModuleNameLike hiding ( )

data/Test161.hs

@@ -1,10 +0,0 @@
-import           MoreThanSufficientlyLongModuleNameWithSome
-                                                          ( compact
-                                                          , fit
-                                                          , inA
-                                                          , items
-                                                          , layout
-                                                          , not
-                                                          , that
-                                                          , will
-                                                          )

data/Test162.hs

@@ -1,11 +0,0 @@
-import           TestJustAbitToLongModuleNameLikeTh
-                                                   hiding ( abc
-                                                          , def
-                                                          , ghci
-                                                          , jklm
-                                                          )
-import           TestJustShortEnoughModuleNameLike hiding ( abc
-                                                          , def
-                                                          , ghci
-                                                          , jklm
-                                                          )

data/Test163.hs

@@ -1,9 +0,0 @@
-import {-# SOURCE #-} safe qualified "qualifier" A hiding ( )
-import {-# SOURCE #-} safe qualified "qualifiers" A
-                                                   hiding ( )
-import {-# SOURCE #-} safe qualified "qualifiers" AlsoAf as T
-import {-# SOURCE #-} safe qualified "qualifiers" AlsoAff ( )
-import {-# SOURCE #-} safe qualified "qualifiers" AlsoAff
-                                                         as T
-import {-# SOURCE #-} safe qualified "qualifiers" AlsoAffe
-                                                          ( )

data/Test164.hs

@@ -1,7 +0,0 @@
--- Test
-import           Data.List                                ( nub ) -- Test
-{- Test -}
-import qualified Data.List                               as L
-                                                          ( foldl' ) {- Test -}
--- Test
-import           Test                                     ( test )

data/Test165.hs

@@ -1,4 +0,0 @@
-import           Test                                     ( abc
-                                                          , def
-                                                          -- comment
-                                                          )

data/Test166.hs

@@ -1,3 +0,0 @@
-import           Test                                     ( abc
-                                                          -- comment
-                                                          )

data/Test167.hs

@@ -1,8 +0,0 @@
-import           Test                                     ( abc
-                                                          -- comment
-                                                          , def
-                                                          , ghi
-                                                          {- comment -}
-                                                          , jkl
-                                                          -- comment
-                                                          )

data/Test168.hs

@@ -1,2 +0,0 @@
-import           Test                                     ( -- comment
-                                                          )

data/Test169.hs

@@ -1,8 +0,0 @@
-import           Test                                     ( longbindingNameThatoverflowsColum
-                                                          )
-import           Test                                     ( Long
-                                                            ( List
-                                                            , Of
-                                                            , Things
-                                                            )
-                                                          )

data/Test17.hs

@@ -1,6 +0,0 @@
-func
-  :: Trither
-       lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-       lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-       lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
-  -> asd

data/Test170.hs

@@ -1,18 +0,0 @@
-import           Test                                     ( Thing
-                                                            ( -- Comments
-                                                            )
-                                                          )
-import           Test                                     ( Thing
-                                                            ( Item
-                                                            -- and Comment
-                                                            )
-                                                          )
-import           Test                                     ( Thing
-                                                            ( With
-                                                            -- Comments
-                                                            , and
-                                                            -- also
-                                                            , items
-                                                            -- !
-                                                            )
-                                                          )

data/Test171.hs

@@ -1,2 +0,0 @@
-import           VeryLongModuleNameThatCouldEvenCauseAnEmptyBindingListToExpandIntoMultipleLine
-                                                          ( )

data/Test172.hs

@@ -1,26 +0,0 @@
-{-# LANGUAGE BangPatterns #-}
-{-
- - Test module
- -}
-module Test
-  ( test1
-  -- ^ test
-  , test2
-  -- | test
-  , test3
-  , test4
-  , test5
-  , test6
-  , test7
-  , test8
-  , test9
-  , test10
-  -- Test 10
-  ) where
--- Test
-import           Data.List                                ( nub ) -- Test
-{- Test -}
-import qualified Data.List                               as L
-                                                          ( foldl' ) {- Test -}
--- Test
-import           Test                                     ( test )

data/Test173.hs

@@ -1,2 +0,0 @@
-import           Aaa
-import           Baa

data/Test174.hs

@@ -1,5 +0,0 @@
-import           Zaa
-import           Zab
-
-import           Aaa
-import           Baa

data/Test175.hs

@@ -1,2 +0,0 @@
-import           Boo
-import qualified Zoo