chrisdone

bash-3.2$ ./read
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

chrisdone

{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE PatternSynonyms #-}

-- | Demonstration of pattern matching on bits in a byte.

module X where

import Data.Bits

pattern Byte a b c d <- (byte -> (ByteBits a b c d))

chrisdone

(defun org-clock-timesheet ()
  "Make a timesheet that can be copy/pasted into a spreadsheet of

  DAY OF MONTH | CONTRACTOR NAME | DESCRIPTION OF WORK | HOURS
"
  (interactive)
  (let ((items (org-clock-collect-items))
        (requested-month (read-from-minibuffer "Month: " (format-time-string "%Y/%m"))))
    (with-output-to-temp-buffer "timesheet"
      (let ((hash (make-hash-table :test 'equal)))

chrisdone

(defun org-clock-timesheet ()
  "Make a timesheet that can be copy/pasted into a spreadsheet of

  DAY OF MONTH | CONTRACTOR NAME | DESCRIPTION OF WORK | HOURS
"
  (interactive)
  (let ((items (org-clock-collect-items))
        (requested-month (read-from-minibuffer "Month: " (format-time-string "%Y/%m"))))
    (with-output-to-temp-buffer "timesheet"
      (let ((hash (make-hash-table :test 'equal)))

chrisdone

(defun org-clock-timesheet ()
  "Make a timesheet that can be copy/pasted into a spreadsheet of

  DAY OF MONTH | CONTRACTOR NAME | DESCRIPTION OF WORK | HOURS
"
  (interactive)
  (let ((items (org-clock-collect-items))
        (requested-month (read-from-minibuffer "Month: " (format-time-string "%Y/%m"))))
    (with-output-to-temp-buffer "timesheet"
      (let ((hash (make-hash-table :test 'equal)))

chrisdone

{-# LANGUAGE OverloadedStrings #-}
-- |

module Data.Attoparsec.Text.Helpful
    (parseHelpfully)
    where

import           Data.Attoparsec.Text (Parser)
import qualified Data.Attoparsec.Text as P
import           Data.List

chrisdone

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE ViewPatterns #-}

-- | Enable --dev flag for Criterion.

module Criterion.Dev where

import Control.Exception
import Data.Function

chrisdone

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
-- |

module Foreign.Storable.TH where

import Foreign.Storable
import Foreign.Ptr
import Language.Haskell.TH

chrisdone

Sample types:

isDigit :: Monad f => Char -> f Bool
any :: Monad f => (a -> f Bool) -> [a] -> f Bool
reverse :: Monad f => [a] -> f [a]
map :: Monad f => (a -> f b) -> [a] -> f [b]
"hello" :: Monad f => f String
putStrLn :: (MonadIO f) => String -> f ()
show :: (Show a,Monad f) => a -> f String

chrisdone

{-# LANGUAGE FlexibleContexts #-}

-- | A section: Parser and printer.
-- See <https://en.wikipedia.org/wiki/Section_(category_theory)>
--
-- It's like an isomorphism, except one side is not a complete mapping
-- i.e. the parsing side, but the printing side is complete (anything
-- that is printed can be parsed).

module Yesod.Form.FieldSection where