Hello world.
This commit is contained in:
commit
bf50f18906
3
.gitignore
vendored
Normal file
3
.gitignore
vendored
Normal file
|
@ -0,0 +1,3 @@
|
|||
.stack-work/
|
||||
frelude.cabal
|
||||
*~
|
5
CHANGELOG.md
Normal file
5
CHANGELOG.md
Normal file
|
@ -0,0 +1,5 @@
|
|||
Changelog for frelude
|
||||
===
|
||||
|
||||
HEAD
|
||||
---
|
30
LICENSE
Normal file
30
LICENSE
Normal file
|
@ -0,0 +1,30 @@
|
|||
Copyright Frederik Hangøj Iversen (c) 2018
|
||||
|
||||
All rights reserved.
|
||||
|
||||
Redistribution and use in source and binary forms, with or without
|
||||
modification, are permitted provided that the following conditions are met:
|
||||
|
||||
* Redistributions of source code must retain the above copyright
|
||||
notice, this list of conditions and the following disclaimer.
|
||||
|
||||
* Redistributions in binary form must reproduce the above
|
||||
copyright notice, this list of conditions and the following
|
||||
disclaimer in the documentation and/or other materials provided
|
||||
with the distribution.
|
||||
|
||||
* Neither the name of Frederik Hangøj Iversen nor the names of other
|
||||
contributors may be used to endorse or promote products derived
|
||||
from this software without specific prior written permission.
|
||||
|
||||
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
||||
OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
67
package.yaml
Normal file
67
package.yaml
Normal file
|
@ -0,0 +1,67 @@
|
|||
name: frelude
|
||||
version: 0.1.0.0
|
||||
github: fredefox/frelude
|
||||
license: BSD3
|
||||
license-file: LICENSE
|
||||
author: Frederik Hangøj Iversen
|
||||
maintainer: fhi.1990@gmail.com
|
||||
copyright: 2018 Frederik Hangøj Iversen
|
||||
|
||||
extra-source-files:
|
||||
- README.md
|
||||
- CHANGELOG.md
|
||||
|
||||
description:
|
||||
Please see the README on GitHub at <https://github.com/fredefox/frelude#readme>
|
||||
|
||||
default-extensions:
|
||||
- ConstraintKinds
|
||||
- DeriveGeneric
|
||||
- FlexibleContexts
|
||||
- FlexibleInstances
|
||||
- GADTs
|
||||
- GeneralizedNewtypeDeriving
|
||||
- LambdaCase
|
||||
- NamedWildCards
|
||||
- OverloadedStrings
|
||||
- ScopedTypeVariables
|
||||
- StandaloneDeriving
|
||||
- TupleSections
|
||||
- TypeApplications
|
||||
- TypeFamilies
|
||||
- TypeSynonymInstances
|
||||
- UnicodeSyntax
|
||||
- ViewPatterns
|
||||
- DerivingStrategies
|
||||
- EmptyCase
|
||||
- NoImplicitPrelude
|
||||
|
||||
dependencies:
|
||||
- base >= 4.7 && < 5
|
||||
- mtl
|
||||
- text
|
||||
- containers
|
||||
- unordered-containers
|
||||
- aeson
|
||||
- yaml
|
||||
- prettyprinter
|
||||
- file-embed
|
||||
- directory
|
||||
- bytestring
|
||||
- exceptions
|
||||
- string-conversions
|
||||
- optparse-applicative
|
||||
- template-haskell
|
||||
- time
|
||||
- deepseq
|
||||
- binary
|
||||
|
||||
library:
|
||||
source-dirs: src
|
||||
|
||||
exposed-module:
|
||||
- Frelude
|
||||
|
||||
other-modules:
|
||||
- Frelude.ReExports
|
||||
- Frelude.Renamed
|
8
src/Frelude.hs
Normal file
8
src/Frelude.hs
Normal file
|
@ -0,0 +1,8 @@
|
|||
{-# OPTIONS_GHC -Wall #-}
|
||||
module Frelude
|
||||
( module ReExports
|
||||
, module Renamed
|
||||
) where
|
||||
|
||||
import Frelude.ReExports as ReExports
|
||||
import Frelude.Renamed as Renamed
|
60
src/Frelude/ReExports.hs
Normal file
60
src/Frelude/ReExports.hs
Normal file
|
@ -0,0 +1,60 @@
|
|||
-- | A module re-exporting members commonly used throughout the MUSTE.
|
||||
|
||||
{-# OPTIONS_GHC -Wall -Wcompat #-}
|
||||
|
||||
module Frelude.ReExports (module X) where
|
||||
|
||||
import Prelude as X
|
||||
-- Classes
|
||||
(Ord(..), Show(show), Monoid(..), Eq(..), Ordering(..),
|
||||
Read, Foldable, Functor(..), Applicative(..), Monad((>>=)),
|
||||
Enum(..), Num(..), Integral(..), Real(..),
|
||||
|
||||
-- Data
|
||||
IO, Int, Integer, Float, Maybe(..), Either(..), Bool(..), Char,
|
||||
Double,
|
||||
|
||||
-- Aliases
|
||||
String, FilePath,
|
||||
|
||||
(.), ($), ($!), either, pure, (||), (&&), length, otherwise,
|
||||
splitAt, (<$>), fromInteger, toInteger, uncurry, curry, not, null,
|
||||
filter, zipWith, zip, fst, snd, all, any, reverse, maximum, minimum,
|
||||
max, min, sum, unwords, words, lines, unlines, or, and, notElem,
|
||||
elem, (<*>), foldMap, putStrLn, putStr, flip, const, sequence, take,
|
||||
mapM_, mapM, ioError, error, repeat, foldl, seq, mod, div, print,
|
||||
realToFrac, fromIntegral, compare)
|
||||
import Data.List as X (sort, last, nub, sortOn)
|
||||
import Data.List.NonEmpty as X (NonEmpty(..), groupBy)
|
||||
import Data.Bool as X (bool)
|
||||
import Data.Function as X ((&), on)
|
||||
import Data.Traversable as X (Traversable(..))
|
||||
import Control.Monad as X ((>=>), void, when, guard, MonadPlus)
|
||||
import Control.Monad.IO.Class as X (MonadIO(liftIO))
|
||||
import Control.Exception as X
|
||||
(Exception, SomeException, throwIO, displayException, throw, try,
|
||||
fromException, toException, catch, ErrorCall(ErrorCall))
|
||||
import Data.Maybe as X (fromMaybe, fromJust, listToMaybe, isJust)
|
||||
import Control.Monad.Fail as X (MonadFail(fail))
|
||||
import Control.Monad.Catch as X (MonadThrow(throwM))
|
||||
import Data.Text as X (Text)
|
||||
import Control.Category as X ((>>>), (<<<))
|
||||
import Text.Printf as X (printf)
|
||||
import Data.Text.Prettyprint.Doc as X (Doc, Pretty(pretty))
|
||||
import Data.Aeson as X (FromJSON, ToJSON)
|
||||
import Data.Semigroup as X (Semigroup(..))
|
||||
import Text.Read as X (readEither, readMaybe)
|
||||
import GHC.Generics as X (Generic)
|
||||
import Data.Binary as X (Binary)
|
||||
import GHC.Exts as X (IsList(fromList, toList, Item))
|
||||
import Data.String as X (IsString, fromString)
|
||||
import Control.Applicative as X (Alternative(..))
|
||||
import Data.String.Conversions as X (convertString)
|
||||
import Data.Time as X (NominalDiffTime)
|
||||
import Data.Time.Clock as X (UTCTime)
|
||||
import Control.Monad.Except as X (MonadError(..), ExceptT, runExceptT)
|
||||
import Language.Haskell.TH.Syntax as X (Lift)
|
||||
import Control.DeepSeq as X (NFData)
|
||||
import Data.Data as X (Typeable, Data(..))
|
||||
import Control.Monad.Reader as X (MonadReader, ReaderT)
|
||||
import Control.Monad.Trans as X (MonadTrans, lift)
|
13
src/Frelude/Renamed.hs
Normal file
13
src/Frelude/Renamed.hs
Normal file
|
@ -0,0 +1,13 @@
|
|||
{-# OPTIONS_GHC -Wall -Wcompat #-}
|
||||
|
||||
module Frelude.Renamed where
|
||||
|
||||
import Prelude
|
||||
|
||||
map ∷ Functor f ⇒ (a → b) → f a → f b
|
||||
map = fmap
|
||||
{-# INLINE map #-}
|
||||
|
||||
identity ∷ a → a
|
||||
identity = id
|
||||
{-# INLINE identity #-}
|
7
stack.yaml
Normal file
7
stack.yaml
Normal file
|
@ -0,0 +1,7 @@
|
|||
resolver: nightly-2018-10-26
|
||||
|
||||
packages:
|
||||
- .
|
||||
|
||||
extra-deps:
|
||||
[]
|
Loading…
Reference in a new issue