Skip to content

Instantly share code, notes, and snippets.

{-# LANGUAGE DeriveDataTypeable,DeriveGeneric #-}
import Control.Distributed.Process
import Network.Transport.TCP
import Control.Distributed.Process.Node (initRemoteTable,newLocalNode,forkProcess)
import Prelude hiding (log)
import GHC.Generics (Generic)
import Data.Binary
import Data.Typeable
import Control.Concurrent
/usr/lib/ghc-7.6.2/package.conf.d:
Cabal-1.16.0
X11-1.6.0.2
X11-xft-0.3.1
array-0.4.0.1
base-4.6.0.1
bin-package-db-0.0.0.0
binary-0.5.1.1
bytestring-0.10.0.2
containers-0.5.0.0
@pankajmore
pankajmore / gist:5022721
Last active December 14, 2015 03:39
Error on ghc --make site.js on a default hakyll-init Using latest github cabal pkg
site.hs:36:51:
Couldn't match type `[Item String]' with `Item String'
Expected type: [Item String] -> [Item String]
Actual type: [Item String] -> [[Item String]]
In the first argument of `postList', namely `recentFirst'
In the expression: postList recentFirst
In the second argument of `field', namely
`(\ _ -> postList recentFirst)'
Initialising...
Creating store...
Creating provider...
Running rules...
Checking for out-of-date items
Compiling
[ERROR] Hakyll.Core.Compiler.cached: Cache corrupt! Try running: site clean
Initialising...
Creating store...
Creating provider...
Running rules...
Checking for out-of-date items
Compiling
[ERROR] Hakyll.Core.Compiler.cached: Cache corrupt! Try running: site clean
/home/pankajm/hsenv/hakyll/.hsenv/ghc_pkg_db:
Cabal-1.16.0
HTTP-4000.2.8
HUnit-1.2.5.1
List-0.5.1
MonadCatchIO-transformers-0.3.0.0
array-0.4.0.1
asn1-data-0.7.1
attoparsec-0.10.4.0
attoparsec-enumerator-0.3.1
Removing _site...
Removing _cache...
Removing _cache/tmp...
Initialising...
Creating store...
Creating provider...
Running rules...
Checking for out-of-date items
[DEBUG] about.rst is out-of-date because it is new
[DEBUG] archive.html is out-of-date because it is new
<!doctype html>
<!--[if lt IE 7]> <html class="no-js lt-ie9 lt-ie8 lt-ie7"> <![endif]-->
<!--[if IE 7]> <html class="no-js lt-ie9 lt-ie8"> <![endif]-->
<!--[if IE 8]> <html class="no-js lt-ie9"> <![endif]-->
<!--[if gt IE 8]><!--> <html class="no-js"> <!--<![endif]-->
<head>
<meta charset="utf-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"/>
<title></title>
<meta name="description" content="">
{
:article => {
:properties => {
:text => { :type => 'string', :analyzer => { :filter => 'html_strip' } },
}
}
}
let find_base_top file =
(* objdump *)
(* parse objdump *)
(* return base and top *)
let lines =
try read_file_into_lines file with Sys_error _ -> error ("can't open " ^ file)
in
let (base::rest) = Str.split (Str.regexp " ") (List.nth lines 6) in
let (top::tail) = Str.split (Str.regexp ":") lines.((String.length lines)-1) in
(base,top)