diff --git a/changelog.md b/changelog.md
new file mode 100644
--- /dev/null
+++ b/changelog.md
@@ -0,0 +1,34 @@
+
+---
+
+The change log was not maintained before this point.
+
+0.1.3.6 - 2020 Mar 15
+
+  - Support GHC 8.8
+
+0.1.3.4 - 2018 Nov 22
+
+0.1.3.3 - 2018 Aug 23
+
+0.1.3.2 - 2017 Dec 3
+
+0.1.3.1 - 2017 Aug 20
+
+0.1.3.0 - 2017 July 22
+
+0.1.2.3 - 2017 May 28
+
+0.1.2.2 - 2017 May 28
+
+0.1.2.1 - 2017 May 16
+
+0.1.2.0 - 2017 May 7
+
+0.1.1.0 - 2017 May 7
+
+0.1.0.2 - 2017 May 7
+
+0.1.0.1 - 2017 May 7
+
+0.1.0.0 - 2017 May 7
diff --git a/loc.cabal b/loc.cabal
--- a/loc.cabal
+++ b/loc.cabal
@@ -1,5 +1,5 @@
 name: loc
-version: 0.1.3.4
+version: 0.1.3.6
 
 synopsis: Types representing line and column positions and ranges in text files.
 
@@ -27,21 +27,23 @@
     GHC == 8.0.2
   , GHC == 8.2.2
   , GHC == 8.4.3
-  , GHC == 8.6.1
+  , GHC == 8.6.3
+  , GHC == 8.8.1
 
 extra-source-files:
     example.png
     example.svg
     README.md
+    changelog.md
 
 library
   default-language: Haskell2010
   hs-source-dirs: src
   default-extensions: NoImplicitPrelude
   ghc-options: -Wall
-  build-depends:
-      base >=4.9 && <4.13
-    , containers
+  build-depends: base, containers
+  build-depends: base >= 4.9
+  build-depends: base < 4.14
   exposed-modules:
       Data.Loc
       Data.Loc.Area
@@ -62,11 +64,9 @@
   hs-source-dirs: test
   default-extensions: NoImplicitPrelude
   ghc-options: -Wall -threaded
-  build-depends:
-      base >=4.9 && <4.13
-    , containers
-    , doctest
-    , loc
+  build-depends: base, containers, doctest, loc
+  build-depends: base >= 4.9
+  build-depends: base < 4.14
 
 test-suite hedgehog
   default-language: Haskell2010
@@ -75,10 +75,7 @@
   hs-source-dirs: test loc-test-src
   default-extensions: NoImplicitPrelude
   ghc-options: -Wall -threaded
-  build-depends:
-      base >=4.9 && <4.13
-    , containers
-    , hedgehog
-    , loc
-  other-modules:
-      Test.Loc.Hedgehog.Gen
+  build-depends: base, containers, hedgehog, loc
+  build-depends: base >= 4.9
+  build-depends: base < 4.14
+  other-modules: Test.Loc.Hedgehog.Gen
diff --git a/src/Data/Loc/Area.hs b/src/Data/Loc/Area.hs
--- a/src/Data/Loc/Area.hs
+++ b/src/Data/Loc/Area.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE GeneralizedNewtypeDeriving, ScopedTypeVariables #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 
 module Data.Loc.Area
   ( Area
diff --git a/src/Data/Loc/Internal/Prelude.hs b/src/Data/Loc/Internal/Prelude.hs
--- a/src/Data/Loc/Internal/Prelude.hs
+++ b/src/Data/Loc/Internal/Prelude.hs
@@ -17,7 +17,7 @@
 import Data.Functor as X (Functor (..), void, ($>), (<$), (<$>))
 import Data.List.NonEmpty as X (NonEmpty (..))
 import Data.Map as X (Map)
-import Data.Maybe as X (Maybe (..), catMaybes, maybe)
+import Data.Maybe as X (Maybe (..), catMaybes, fromMaybe, maybe)
 import Data.Monoid as X (Monoid (..))
 import Data.Ord as X (Ord (..), Ordering (..), max, min)
 import Data.Semigroup as X (Semigroup (..))
diff --git a/src/Data/Loc/Span.hs b/src/Data/Loc/Span.hs
--- a/src/Data/Loc/Span.hs
+++ b/src/Data/Loc/Span.hs
@@ -28,12 +28,11 @@
   ) where
 
 import Data.Loc.Internal.Prelude
-import Data.Loc.Loc (locReadPrec, locShowsPrec)
 
 import Data.Loc.Exception (LocException (..))
 import Data.Loc.List.OneToTwo (OneToTwo)
 import Data.Loc.List.ZeroToTwo (ZeroToTwo)
-import Data.Loc.Loc (Loc)
+import Data.Loc.Loc (Loc, locReadPrec, locShowsPrec)
 import Data.Loc.Pos (Line)
 
 import qualified Data.Loc.List.OneToTwo as OneToTwo
@@ -112,7 +111,7 @@
 -}
 fromTo :: Loc -> Loc -> Span
 fromTo a b =
-  maybe (throw EmptySpan) id (fromToMay a b)
+  fromMaybe (throw EmptySpan) (fromToMay a b)
 
 {- |
 
diff --git a/test/hedgehog.hs b/test/hedgehog.hs
--- a/test/hedgehog.hs
+++ b/test/hedgehog.hs
@@ -18,7 +18,7 @@
 main =
   hSetEncoding stdout utf8 *>
   hSetEncoding stderr utf8 *>
-  checkParallel $$(discover) >>= \ok ->
+  checkParallel $$discover >>= \ok ->
   when (not ok) exitFailure
 
 prop_Span_add_mempty :: Property