echo 'library-profiling: True' >> .cabal/config
cabal install --reinstall world

Could not find module ‘$module_name’
    Perhaps you haven't installed the profiling libraries for package ‘$package_name’?

>import Network.HTTP.Client
>images <- withManager defaultManagerSettings (\m -> mapM (\s -> (withResponse (fromJust . parseUrl $ s) m responseBody)) urls)
>map BS.lenght images
[1208,1207,1207]

Хотя должно быть [35813,31296,68546]

root        = '/dev/xvda2 ro'
disk        = [
                  'phy:/dev/vg00/netgw-disk,xvda2,w',
                  'phy:/dev/vg00/netgw-swap,xvda1,w',
              ]

# lvcreate -L 2G -s -n backup -p r /dev/vg00/netgw-disk
  Logical volume "backup" created

# mount -o ro /dev/vg00/backup /mnt/
mount: wrong fs type, bad option, bad superblock on /dev/mapper/vg00-backup,
       missing codepage or helper program, or other error
       In some cases useful info is found in syslog - try

# dmesg | tail
[9845153.577280] xen-blkback:ring-ref 8, event-channel 17, protocol 1 (x86_64-abi)
[9845153.900924] blkfront: xvda: barrier or flush: disabled
[9845153.920303]  xvda: unknown partition table
[9845175.105508] EXT4-fs (xvda): INFO: recovery required on readonly filesystem
[9845175.105515] EXT4-fs (xvda): write access unavailable, cannot proceed
[9846742.883671] EXT4-fs (dm-4): INFO: recovery required on readonly filesystem
[9846742.883679] EXT4-fs (dm-4): write access unavailable, cannot proceed

# parted /dev/vg00/backup print
Model: Linux device-mapper (snapshot) (dm)
Disk /dev/dm-4: 21,5GB
Sector size (logical/physical): 512B/512B
Partition Table: loop

Number  Start  End     Size    File system  Flags
 1      0,00B  21,5GB  21,5GB  ext4

Sep 10 09:09:01 v9031 CRON[7249]: pam_unix(cron:session): session closed for user root
Sep 10 09:17:01 v9031 CRON[7279]: pam_unix(cron:session): session opened for user root by (uid=0)
Sep 10 09:17:01 v9031 CRON[7279]: pam_unix(cron:session): session closed for user root
Sep 10 09:30:01 v9031 CRON[7308]: pam_unix(cron:session): session opened for user www-data by (uid=0)
Sep 10 09:30:01 v9031 CRON[7308]: pam_unix(cron:session): session closed for user www-data
Sep 10 09:39:01 v9031 CRON[7330]: pam_unix(cron:session): session opened for user root by (uid=0)
Sep 10 09:39:01 v9031 CRON[7330]: pam_unix(cron:session): session closed for user root
Sep 10 10:00:01 v9031 CRON[7386]: pam_unix(cron:session): session opened for user www-data by (uid=0)
Sep 10 10:00:10 v9031 CRON[7386]: pam_unix(cron:session): session closed for user www-data
Sep 10 10:09:01 v9031 CRON[7408]: pam_unix(cron:session): session opened for user root by (uid=0)

17 *	* * *	root    cd / && run-parts --report /etc/cron.hourly
25 6	* * *	root	test -x /usr/sbin/anacron || ( cd / && run-parts --report /etc/cron.daily )
47 6	* * 7	root	test -x /usr/sbin/anacron || ( cd / && run-parts --report /etc/cron.weekly )
52 6	1 * *	root	test -x /usr/sbin/anacron || ( cd / && run-parts --report /etc/cron.monthly )
*/30 * * * * www-data /usr/bin/php /usr/share/nginx/ttrss/update.php --feeds --quiet
#

data Tree a = EmptyTree | Node a (Tree a) (Tree a) deriving (Show)
treeToList :: Tree a -> [a]
treeToList EmptyTree = []
treeToList (Node a left right) = a : (treeToList left) : (treeToList right)

Couldn't match expected type `a' with actual type `[a]'
  `a' is a rigid type variable bound by
      the type signature for treeToList :: Tree a -> [a]
      at Trees.hs:20:15
In the return type of a call of `treeToList'
In the first argument of `(:)', namely `(treeToList left)'
In the second argument of `(:)', namely
  `(treeToList left) : (treeToList right)'

./script text.txt
cat md5.txt 
text.txt||302c3977fb0e4cacebcb39b19380bd18
nano text.txt #Меняем файл
./script text.txt
cat md5.txt 
text.txt||37dae57c382a5f3e025331595d62a5ae #Файл изменен - реакции нет
t||e #Откуда это взялось?

#!/usr/bin/perl
use strict;

sub md5hash { #Определение хеша
	my $file = shift(@_);
	my ($hash) = (`md5sum \'$file\'` =~ /^(\w*) +$file/);
	return $hash;
	}

open Base, "<", "md5.txt"
	or warn "Не могу открыть базу md5.txt - $!";
open Out, ">", "md5.tmp"
	or warn "Не могу открыть md5.tmp - $!";

my %hash_file; #Открытие базы
for (<Base>) {
	chomp;
	my ($key, $value) = split/||/;
	$hash_file{$key} = $value;
	}
close Base;

my @file = <@ARGV>; #Обработка аргументов
for (@file) {
	my $file = $_;
	if ($hash_file{$file}) {
		my $hash = md5hash($file);
		print "Файл $file - изменен\n" unless $hash ~~ $hash_file{$file}; #Не работает
	} else {
		$hash_file{$file} = md5hash($file)};
}

for (keys %hash_file) {
	print Out "$_||$hash_file{$_}\n";
	#~ print "$_||$hash_file{$_}";
	}
close Out;

rename "md5.tmp", "md5.txt";

BEGIN {OFS = "|"} 
{  text[NR] = $0; 
   trans[NR] = system("echo "$0 " |sed 's/\"//g'| 
    xargs -I {} wget -qO- http://translate.yandex.ru/tr.json/translate --post-data=\"srv=tr-text&lang=en-ru&text={}\"")} 
END { for (i = 1; i <= NR; i++) print text[i], trans[i]}

recoll -t '*.jpg' | xargs ln -s /mnt/win1/save/

ln: неверный ключ — «3»
Попробуйте «ln --help» для получения более подробного описания.
ln: неверный ключ — «1»
Попробуйте «ln --help» для получения более подробного описания.
ln: указанная цель «cache/CA085FE29474D4ED82561710B21AFFA4.jpg]» не является каталогом
ln: указанная цель «image/jpeg» не является каталогом
ln: указанная цель «bytes» не является каталогом
ln: указанная цель «bytes» не является каталогом