magthe

{-# LANGUAGE DeriveFunctor#-}

-- Simple example of using Free with a single algebra/API.

module Free1 where

import Control.Monad.Free

data SimpleFileF a
  = LoadFile FilePath (String -> a)

magthe

Keybase proof

I hereby claim:

• I am magthe on github.
• I am magthe (https://keybase.io/magthe) on keybase.
• I have a public key ASCF3PyaMhJU-BVsk0bF9gjQ7DSJv5NYmbYFRvBjwJtWlgo

To claim this, I am signing this object:

magthe

import Control.Applicative
import Data.Monoid
import Data.Vector as V
import Prelude as P
import Text.ParserCombinators.ReadP

spinList :: Int -> Vector Char -> Vector Char
spinList n xs = let (h, t) = V.splitAt (l - n) xs
                    l = V.length xs
                in t <> h