I hereby claim:
- I am Decoherence on github.
- I am qubitcoder (https://keybase.io/qubitcoder) on keybase.
- I have a public key whose fingerprint is B2E9 8F37 4D4D 66AB 4AB5 CDCC 3ECE E817 6FFD C6C0
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
{-# LANGUAGE MultiWayIf #-} | |
{-# LANGUAGE RankNTypes #-} | |
import Control.Monad | |
import Data.Char | |
import Data.List | |
import Data.List.Split | |
import Data.Map (Map) | |
import qualified Data.Map as Map | |
import Text.Read |
module Main where | |
import Control.Monad.Trans | |
import Control.Monad.Trans.Either | |
import Safe | |
data Sensor = Temp | |
| Fuel | |
| Pressure |
{-# LANGUAGE OverloadedStrings #-} | |
{-# LANGUAGE DeriveGeneric #-} | |
module Main where | |
import Database.PostgreSQL.Simple | |
import Data.Aeson hiding (json) | |
import Data.Monoid | |
import Data.Text (pack) | |
import GHC.Generics |
{-# LANGUAGE ViewPatterns #-} | |
module Main where | |
data Status = Silver | |
| Gold | |
| Platinum | |
deriving (Show) | |
type Points = Int |
{-# LANGUAGE DeriveGeneric #-} | |
{-# LANGUAGE TemplateHaskell #-} | |
import Control.Lens | |
import Data.Aeson | |
import qualified Data.ByteString.Lazy.Char8 as C | |
import GHC.Generics | |
-- For production code, use Text instead of String | |
data Person = Person { _personName :: String | |
, _personAge :: Int |
{-# LANGUAGE DataKinds #-} | |
{-# LANGUAGE DeriveGeneric #-} | |
{-# LANGUAGE OverloadedStrings #-} | |
{-# LANGUAGE PolyKinds #-} | |
{-# LANGUAGE TypeFamilies #-} | |
{-# LANGUAGE TypeOperators #-} | |
import Control.Applicative | |
import Control.Monad.IO.Class | |
import Data.Aeson |
{-# LANGUAGE OverloadedStrings #-} | |
import Control.Applicative | |
import Control.Monad | |
import Control.Monad.Trans | |
import Data.Monoid | |
import Data.Text | |
import Database.PostgreSQL.Simple | |
import Database.PostgreSQL.Simple.FromRow | |
import Lucid | |
import Web.Scotty |
-- | Sandbox Haskell package | |
{-# LANGUAGE FlexibleInstances #-} | |
{-# LANGUAGE MultiParamTypeClasses #-} | |
{-# LANGUAGE FunctionalDependencies #-} | |
module Main where | |
class Pet animal sound | animal -> sound where | |
speak :: animal -> sound | |
data Sound = Bark | Meow deriving (Show) |