From 9477bb411dd4e1f33182d675d5a559f500c22de1 Mon Sep 17 00:00:00 2001
From: Eduardo Trujillo <ed@chromabits.com>
Date: Sun, 20 Dec 2020 18:44:24 -0800
Subject: [PATCH] refactor(src): Standarize file headers
---
Data/Git/Config.hs | 3 ++-
Data/Git/Delta.hs | 3 ++-
Data/Git/Index.hs | 2 ++
Data/Git/Monad.hs | 11 +++++------
Data/Git/Named.hs | 6 ++++--
Data/Git/OS.hs | 1 +
Data/Git/Path.hs | 3 ++-
Data/Git/Ref.hs | 3 ++-
Data/Git/Repository.hs | 1 +
Data/Git/Revision.hs | 3 ++-
Data/Git/Storage.hs | 2 +-
Data/Git/Storage/CacheFile.hs | 1 +
Data/Git/Storage/FileReader.hs | 3 ++-
Data/Git/Storage/Loose.hs | 3 ++-
Data/Git/Storage/Object.hs | 1 +
Data/Git/Storage/Pack.hs | 3 ++-
Data/Git/Storage/PackIndex.hs | 3 ++-
Data/Git/Types.hs | 3 ++-
Data/Git/WorkTree.hs | 1 +
tests/Repo.hs | 1 +
tests/Tests.hs | 1 +
21 files changed, 39 insertions(+), 19 deletions(-)
diff --git a/Data/Git/Config.hs b/Data/Git/Config.hs
index 03c7198..bf037d9 100644
--- a/Data/Git/Config.hs
+++ b/Data/Git/Config.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
-- |
-- Module : Data.Git.Config
-- License : BSD-style
@@ -7,7 +9,6 @@
--
-- config related types and methods.
--
-{-# LANGUAGE OverloadedStrings #-}
module Data.Git.Config
( Config(..)
, Section(..)
diff --git a/Data/Git/Delta.hs b/Data/Git/Delta.hs
index 8db781f..5212ced 100644
--- a/Data/Git/Delta.hs
+++ b/Data/Git/Delta.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE BangPatterns #-}
+
-- |
-- Module : Data.Git.Delta
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE BangPatterns #-}
module Data.Git.Delta
( Delta(..)
, DeltaCmd(..)
diff --git a/Data/Git/Index.hs b/Data/Git/Index.hs
index 5d3297f..8732dec 100644
--- a/Data/Git/Index.hs
+++ b/Data/Git/Index.hs
@@ -1,6 +1,8 @@
{-# OPTIONS_GHC -fwarn-missing-signatures -fno-warn-unused-binds #-}
+
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE OverloadedStrings #-}
+
module Data.Git.Index
( IndexEntry( .. )
, parseIndex
diff --git a/Data/Git/Monad.hs b/Data/Git/Monad.hs
index b3369d2..6cdd5bb 100644
--- a/Data/Git/Monad.hs
+++ b/Data/Git/Monad.hs
@@ -1,3 +1,8 @@
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE Rank2Types #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
-- |
-- Module : Data.Git.Monad
-- License : BSD-style
@@ -17,12 +22,6 @@
--
-- You can also easily create a new commit: see 'CommitM' and 'withNewCommit'
--
-
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE Rank2Types #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
module Data.Git.Monad
( -- * GitMonad
GitMonad(..)
diff --git a/Data/Git/Named.hs b/Data/Git/Named.hs
index 0464264..44bd902 100644
--- a/Data/Git/Named.hs
+++ b/Data/Git/Named.hs
@@ -1,3 +1,6 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
-- |
-- Module : Data.Git.Named
-- License : BSD-style
@@ -8,8 +11,7 @@
-- Manipulation of named references
-- * reading packed-refs file
-- * reading single heads/tags/remote file
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE ScopedTypeVariables #-}
+--
module Data.Git.Named
( RefSpecTy(..)
, RefContentTy(..)
diff --git a/Data/Git/OS.hs b/Data/Git/OS.hs
index 9c1b70c..449d8d7 100644
--- a/Data/Git/OS.hs
+++ b/Data/Git/OS.hs
@@ -7,6 +7,7 @@
--
-- dealing with operating system / IO related stuff
-- like file on disk
+--
module Data.Git.OS
( LocalPath
-- * re-export
diff --git a/Data/Git/Path.hs b/Data/Git/Path.hs
index dc5c662..329f1bb 100644
--- a/Data/Git/Path.hs
+++ b/Data/Git/Path.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
-- |
-- Module : Data.Git.Path
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE OverloadedStrings #-}
module Data.Git.Path where
import System.Random
diff --git a/Data/Git/Ref.hs b/Data/Git/Ref.hs
index 7b6301c..5b7584b 100644
--- a/Data/Git/Ref.hs
+++ b/Data/Git/Ref.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+
-- |
-- Module : Data.Git.Ref
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE DeriveDataTypeable #-}
module Data.Git.Ref
( Ref
, SHA1
diff --git a/Data/Git/Repository.hs b/Data/Git/Repository.hs
index 507232e..28d7525 100644
--- a/Data/Git/Repository.hs
+++ b/Data/Git/Repository.hs
@@ -1,6 +1,7 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE DeriveDataTypeable #-}
+
-- |
-- Module : Data.Git.Repository
-- License : BSD-style
diff --git a/Data/Git/Revision.hs b/Data/Git/Revision.hs
index 42fb472..c8068f0 100644
--- a/Data/Git/Revision.hs
+++ b/Data/Git/Revision.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+
-- |
-- Module : Data.Git.Revision
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE DeriveDataTypeable #-}
module Data.Git.Revision
( Revision(..)
, RevModifier(..)
diff --git a/Data/Git/Storage.hs b/Data/Git/Storage.hs
index 7b065b7..0ae240b 100644
--- a/Data/Git/Storage.hs
+++ b/Data/Git/Storage.hs
@@ -1,5 +1,6 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}
+
-- |
-- Module : Data.Git.Storage
-- License : BSD-style
@@ -7,7 +8,6 @@
-- Stability : experimental
-- Portability : unix
--
-
module Data.Git.Storage
( Git
, packedNamed
diff --git a/Data/Git/Storage/CacheFile.hs b/Data/Git/Storage/CacheFile.hs
index 4b53e68..e01bd21 100644
--- a/Data/Git/Storage/CacheFile.hs
+++ b/Data/Git/Storage/CacheFile.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE ScopedTypeVariables #-}
+
-- |
-- Module : Data.Git.Storage.CacheFile
-- License : BSD-style
diff --git a/Data/Git/Storage/FileReader.hs b/Data/Git/Storage/FileReader.hs
index 69bf347..c168def 100644
--- a/Data/Git/Storage/FileReader.hs
+++ b/Data/Git/Storage/FileReader.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+
-- |
-- Module : Data.Git.Storage.FileReader
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE DeriveDataTypeable #-}
module Data.Git.Storage.FileReader
( FileReader
, fileReaderNew
diff --git a/Data/Git/Storage/Loose.hs b/Data/Git/Storage/Loose.hs
index 084d33a..026f052 100644
--- a/Data/Git/Storage/Loose.hs
+++ b/Data/Git/Storage/Loose.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, ViewPatterns #-}
+
-- |
-- Module : Data.Git.Storage.Loose
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, ViewPatterns #-}
module Data.Git.Storage.Loose
(
Zipped(..)
diff --git a/Data/Git/Storage/Object.hs b/Data/Git/Storage/Object.hs
index 0064744..2d403fe 100644
--- a/Data/Git/Storage/Object.hs
+++ b/Data/Git/Storage/Object.hs
@@ -1,5 +1,6 @@
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE CPP #-}
+
-- |
-- Module : Data.Git.Storage.Object
-- License : BSD-style
diff --git a/Data/Git/Storage/Pack.hs b/Data/Git/Storage/Pack.hs
index 56f9431..2861a5d 100644
--- a/Data/Git/Storage/Pack.hs
+++ b/Data/Git/Storage/Pack.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
-- |
-- Module : Data.Git.Storage.Pack
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE OverloadedStrings #-}
module Data.Git.Storage.Pack
( PackedObjectInfo(..)
, PackedObjectRaw
diff --git a/Data/Git/Storage/PackIndex.hs b/Data/Git/Storage/PackIndex.hs
index 2b7f1c1..1e15e73 100644
--- a/Data/Git/Storage/PackIndex.hs
+++ b/Data/Git/Storage/PackIndex.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings, BangPatterns #-}
+
-- |
-- Module : Data.Git.Storage.PackIndex
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE OverloadedStrings, BangPatterns #-}
module Data.Git.Storage.PackIndex
( PackIndexHeader(..)
, PackIndex(..)
diff --git a/Data/Git/Types.hs b/Data/Git/Types.hs
index dd2afe6..a4d3d2f 100644
--- a/Data/Git/Types.hs
+++ b/Data/Git/Types.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+
-- |
-- Module : Data.Git.Object
-- License : BSD-style
@@ -5,7 +7,6 @@
-- Stability : experimental
-- Portability : unix
--
-{-# LANGUAGE DeriveDataTypeable #-}
module Data.Git.Types
(
-- * Type of types
diff --git a/Data/Git/WorkTree.hs b/Data/Git/WorkTree.hs
index d3631d1..26a24d6 100644
--- a/Data/Git/WorkTree.hs
+++ b/Data/Git/WorkTree.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+
-- |
-- Module : Data.Git.WorkTree
-- License : BSD-style
diff --git a/tests/Repo.hs b/tests/Repo.hs
index 1e5169f..14d4982 100644
--- a/tests/Repo.hs
+++ b/tests/Repo.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE ScopedTypeVariables #-}
+
import Test.Tasty
import Test.Tasty.QuickCheck
diff --git a/tests/Tests.hs b/tests/Tests.hs
index 060ee4d..dd03c18 100644
--- a/tests/Tests.hs
+++ b/tests/Tests.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE FlexibleInstances #-}
+
import Test.Tasty.QuickCheck
import Test.Tasty
--
GitLab